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SEQ 9002 











THE DIAGNOSTIC DOES NOT DO ANY 
WHEN IT SE IROL ER. tT fo Acumen 
THAT CONTROLLER. IT a3 ASSUMED THAT THE RH70 
SPECIFIC CONTROLLER DIAGNOSTICS HAVE BEEN SUCCESSFULLY RUN TO 
COMPLETION BEFORE THIS PROGRAM IS RUN. 


2.9 REQUIREMENTS 
2.1 EQUIPMENT 














rae t} WITH CONSOLE TELETYES» 
/S/6 DISK Bere WILL CONSIS 
ANS DISK CONTROL LOGIC (DCL). THe CRELE. FROM THE DCL CAN BE 
CONNECTED TO THE MOLI, BUT IF NOT THAT CABLE MUS 
TERMINATED. 
2.2 STORAGE 
TS PROGRAM REQUIRES 16K WORDS OF MEMORY. 
2.3 PRELIMINARY PROGRAMS 
THIS PROGRAM ASSUMES THAT MAINDEC-11-DZRJG- 
(LATEST REV) HAS BEEN RUN WITHOLT ERRORS | ‘ 
3.0 LOADING PROCEDURE y 
USE STANDARD PROCEDURE FOR LOADING .ABS TAPES 
4.0 STARTING PROCEDURE 
SWITCH 12 MUST BE Ac aes THIS PROGRAM IS TO BE RUN USING AN 
AN BE SET AT THE FRONT PANEL, OR_IN THE 
SOFWARE SWITCH REGISTER IF THE OPERATOR SO DESIRES. 
Bona aed 5.1 FOR A DESCRIPTION OF SOFTWARE SWITCH REGISTER 
OPERATION 
4.1 CONTROL SWITCH SETTINGS 
SEE SECTION S.1 
STARTING ADDRESS 


START AT ADDRESS 200---FOR NORMAL RUN 
START AT ADDRESS 210---FOR UNIT SELECTION 






















a a ee a CE a 
of 
fu 


ee le ~- 



















200 ST 

TESTING WILL START HITH THE LOWEST UNIT RUMGER BR 

THAT IS Hote RED UP Crust Ts Te oe Pou UNIT ace REGISTER 
THAT }THEN GO ON 3 te NEXT HIGHER UNIT 


210 STAR 


fat Surroes MUST BE oa te FOR_WORS ut ™ Tee Sart 
Tobe TESTED. THEN 0 pact ee yee eTMILL x FOR BE TESTED 
FOR EACH PASS OF 


4.3 PROGRAN AND/OR OPERATOR ACTION 

1. LOAD THE PROGRAM INTO MEMORY. 
SET STARTING ADDRESS ON THE SWITCH REGISTER 
PRESS “LOAD ADDRESS”. 


SET “OPERATIONAL SWITCH SETTINGS” (SEE SECTION S.1) 
WORST CASE IS ALL SWITCHES DOWN. 


S. PRESS “START”. 
&. FOR THE FIRST PASS A WILL BE EXECUTED ONCE 
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5.2 OPERATIONAL SWITCH SETTINGS 
ne rg IS BEING RUN ON A SWITCHLESS PROCESSOR ( 


RE GUI T’ AND °CON 
CORRECT TYPING ERRORS DURING SUITCH ENTRY 


REGISTER IS_NOT PRESENT WILL 
ISTER. THE SETTINGS OF THE ’ 
A KEYBOARD ROUTINE WH ED 
TYPING A’ G’. THE PROGRAM WILL RECOGNIZE THE 
G’ AT ANY TIME EXCEPT WHEN THE PROGRAM IS AT A 
HIGHER PRIORITY PROCESSING AN RPOY/S/6 _ RRUPT. THE 
*SOFTWARE’ SWITCH VALUES ARE ENTERED AS AN OCTAL NUMBER IN 
RESPONSE TIO THE PROMPT FROM THE SWITCH ENTRY ROUTINE: 
*SWR = NNNNNN NEW =” 
EACH TIME SWITCH SETTINGS ARE ENTERED, THE ENTIRE SWITCH 
REGISTER IMAGE MUST BE ENTERED. LEADING ZEROS ARE NOT 
| TROL _U’ FUNCTIONS MAY BE USED TO 
| 
! 
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THE * SOFTWARE’ 
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TER AND THE PROCEDURES 


16 


"ALL 8 


ts 


ON PROCESSORS WITH HARDWARE SWITCH REGISTER 
DESCRIBED ABOVE MUST BE FOLLOWED. 


WILL BE TO THE "SOFTWARE’ REG 


Sul téHes IN THE, “UP” POSITION 


HOWEVER THE DETAIL DESCRIPTIONS ARE GIVEN 


ONS ARE GIVEN IN SECTION 9 “OPERATIONAL 
T 
tate 


HERE 


AN oo 


THING WILL HAPPEN. 


IF THE PROGRAM FI 
TION WILL BE PRIN 
THE 


ait ON TERT 
TCH IS THE PROGRAM WILL BEGIN TO LOOP 


TEST IS TO SET THIS SWITCH DURING AN ERROR PRINTOUT OR 





, THAT IS, ALTHOUGH 
FOUND 6 ERRORS, 


TRUE 
HAT PASS 


AT THE START OF _THE PROGRAM WHEN THE 
SET WHEN DISK DRIVES TO BE TESTED 
TO THE LAST 


ane CONNECTED TO AN RH70 
SET, IF THE PROGRAM FINDS AN ERROR 


2 - RH70 CONTROLLER SELECT 
as 
THEN GENERALLY THE PROGRAM WILL LOOP 


SWITCH 9 - LOOP ON ERROR 


WHEN THIS SWITCH 
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S.2 
6.9 
7.0 


6.1 














IS NO DRIVE CONNECTED THEN THE CABLE NORMALLY GOING FROM 
THE DCL TO THE MDLI MUST BE PROPERLY TERMINATED. 


ITCH 12 MUST ING ON AN RH70 CONTROLLER AND 
T Must Rot Be BE EEN NN. ON AN ROL 
Of THIS FAC BE RUN IN CHAIN MODE 
PCWARE S SWIT Trea REGtST sree Te T ROUTINE WHICH 
On THe ICH REGIST R IS NOT OPERABLE WHEN IN 
re 
8.0 MISCELLANEOUS 
8.1 EXECUTION TIME 


THE FIRST PASS OF THE PROGRAM WILL TAKE 1.75 MINUTES PER 
DRIVE. SUBSEQUENT PASSES WILL TAKE 7 RINE NUTE. 


8.2 STACK POINTER 
' THE STACK IS INITIALLY SET TO 1000 
8.3 OPERATOR SELECTABLE SCOPE LOOPS 


HERE IS A DETAI EXPLAINATION OF HOW THE LOOP ON ERROR WORKS 
IN GARDING USAGE OF THE a ia. ay a 
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THE PROGRAM T , 
THE RESTRICTIONS TO THE POINT WHERE THE ppenar CAN GO ARE: - 
1. IT MUST BE WITHIN ue UNDER CONSIDERATION 
TEST UNDER CONSIDERATION 
Ht THE TEST UNDER Coser TON 
PROGRAM WILL REVERT TO NORMAL OPERATION. HOWEVER, IF LOOP ON 
TEST SWITCH IS SET AND THIS OPERATOR CTABLE SCOPE LOOP 13 USED 


PROGRAM WILL LOOP BACK TO LECTED POINT WHEN I 
COMES TO THE END OF THE TEST UNDER CONSIDERATION. 


AFTER LOOPING FOR SOME TIME IF THE LOOP SWITCH IS PUT DOWN THEN 
NORMAL OPERATION WILL CONTINUE. 


8.4 PROGRAM REVISION HISTORY 


9.0 PROGRAM DESCRIPTION 


THE FOLLOWING SECTIONS DESCRIGE 
IN DETAIL AND CAN ALSO BE 

THE LEFT MOST COLUMN IS T 
WHERE THAT ITEM WILL BE F 


Ears 
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sae HEAEEE EEO EEEEE 
OPERATIONAL SWITCH SETTINGS 
BASIC DEFINITIONS 
TRAP CATCHER 
ACT11 HOOKS 
STARTING ADDRESSES 
MEMORY MANAGEMENT DEFINITIONS 
COMMON TAGS 
ERROR POINTER TABLE 
HARDWARE REGISTER BIT DEFINITIONS 
REGISTER ADDRESSES 


#£*PROGRAM SETUP 8&8 SETUP TESTS#** 


INITIALIZE THE COMMON TAGS 
GET VALUE FOR SOFTWARE SWITCH REGISTER 


#£*DIAGNOSTIC CODE*## 1s 
EXTENDED MEMORY, DRIVE TIMING & SECTOR SELECT TESTS 


DATA TRANSFER TESTS USING ECC 
CURSORY INTERRUPT LOGIC TESTS 
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7669 SAVE ROUTINE 

7699 WRITE CHECK ROUTINE 
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3 COPYRIGHT (C) 1976 
DIGITAL EQUIPMENT CORP. 
MA MASS. 01754 


PROGRAM BY PETE BLACKSTONE 


THIS PROGRAM WAS ASSEMBLED USING THE PDP-11 MAINDEC SYSMAC 
PACKAGE (MAINDEC-11-DZQAC-CO),MAR 21, 1976. 


23 EREREREAREEREREREREREREERRRELERER 
32 
NOTE: MACRO CALLS SEGINNING WITH “.$" ARE SUPPLIED FROM AN 
EX 2g oaee BR SML PACKAGE WHICH st BE MADE AVAILABLE. 
TO THE SOURCE PROGRAN AT ASSEMBLY TIME. 


SELLELEREAAELLTTLELESTERELALELALLSLELERELELERSSLESELLSLSFSLALFLER 


OPERATIONAL SWITCH SETTINGS 
PELRERSEREESELEEELGERESSEEEEELELELLALERESESEEELERAEEREEREREEEREEE 


4) 


SWITCH USE 
1S HALT ON ERROR 
14 LOOP ON TEST 
13 INHIBIT TYPEOUTS 
le RH70 CONTROLLER SELECT 
1] INHIBIT ITERATIONS 
10 ON 
3 LOOP ON 
8 LOOP ON TEST IN SWR<7:0 
? Tere THER COMPARES F SHOB IS LOW 
& ~COMPARE END RESULTS ONLY IF SWOS 1S LOK + 


b-i-t-ei-$-5-4-te5-5-1-4-tat-edababalaleledelalalelabelelebaiahsiehaleialeleleieieielsiaieheielaleieiaiaisheleleisieleieiela 
BASIC DEFINITIONS 
ESELELELLERELESEEEEEERRELESESLERRELARESSEEREEREREREREE EEE ELEEEEE 
INITIAL ADDRESS OF THE STACK POINTER ### 1000 ### 
MISCELLANEOUS DEFINITIONS ' 
GENERAL PURPOSE REGISTER DEFINITIONS 
PRIORITY LEVEL DEFINITIONS 


“SWITCH REGISTER” SWITCH DEFINITIONS 
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128 DATA BIT DEFINITIONS (BITOC TO BITS) 
153 BASIC “CPU” TRAP VECTOR ADDRESSES 


7 oy ~  ppeyeeeergnoe ner pete eee reer 
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TERATLLFLARALAFFRALLLALEALSFAARELLALASLE LALA LAE RLAAALL KLASSE LAR ELES 


170 ALL LOCATIONS FROM 4 - 776 conan A“. +2, HALT” 
SE 0 CATCH we LEG TRAPS AND INTERRUPT 
LOCATION O CONTAI 0 CATCH IMPROPERLY L VECTORS 
SESE EAE EEE gE SEE AEE EE J EE EEE EG A od A A A EE EE 
177 ACT11 HOOKS 
EE EE EE EE 48 EE A GE J A A GE A 


Ae Se SE-B EE EEE SEE 4 48 9 4 EE a a A a EE ak 
188 STARTING ADDRESSES 
peveereterrrtrettttrirttrrttritttttrtiiiittttriititttttiitttetec 


138 STARTING ADDRESS 200 FOR NORMAL STARTS 
THIS WILL TEST ALL rRPOSS ON THE SYSTEM A SINGLE DRIVE AT A TIME 


STARTING ADDRESS 210 WILL TEST ONLY ONE SPECIFIED DRIVE 
SERSAASSSSEFSLFFELFLELLEALFL FLERE LELESHELEHSRELELELAEAAALAEFELAEREE 
203. MEMORY MANAGEMENT DEFINITIONS . 
TERAFHAAAKASSFAELSSELESSLLLLSSEFLLESLEEFSLA FELLA FAALSFHELRRAFSEESE 
205  —««KT11 VECTOR ADORESS 
209 ~=—s KT11: STATUS REGISTER ADDRESSES 
33 KERNEL “I” PAGE DESCRIPTOR REGISTERS 
227 += KERNEL “I” PAGE ADDRESS REGISTERS 
SERESELRELER EERE LE EELSLELEL ALL LELELEL SLE LE LE RELL LRA LLERRERERAEL IEE 




















‘ON TAGS 
AREER EEE EGER EERE EERE REED EERE EE 
243 THIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS 
USED IN THE PROGRAM. 
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stant yf + cee enaaanaaatiaeieeamaaanaa 
298 ERROR POINTER 
SOT SeEEESESTAESTEERERGEEAEHEEEEEEEEEHEREEECONEEREEELEREREEEELEES 
300 TS ee CONTAINS Ie THE INFORMATION FOR EACH ERROR THAT CAN — e 
ee SITENS. ete Ts 1S PEER TN INDICATES Ica t a in Te tet TABLE IS PERTINENT. 
NOTEe: N THE TABLE BLE CONTAINE 4 POINTERS EXPLAT EXPLAINED AS FOLLOWS: 


IF 
EAC 

306 te oe 3 PRINT? Oe bo eae 
D 


pals HEADER 
T POINTS 19 The pare 
DF 3 ;POINT: TA FORMAT 


S44 FRFAREELKELLARELELLLAL ALFA SLE LLLKLLELELELLLELLLLELELLSLELE LESS ELE SESS 
FLLELAREAELFALKTLLLALERERALLELLERELLLLA ALLA ELLSARRELELELLE SELES SLESELS 





SEQ 0015 


KLLLLE FLARE LAA TLE FALLSSLLAELERLELALSELLLLLALE SELLS KELLLEL FRESE SES 


2025S § HARDWARE REGISTER BIT DEFINITIONS 
JHHHHHHHHHEHHHHHEEE JU HE HHH HHH HHH HHH HHH HHH HEE 


JHE HHH HHH HHH HHHHEHHHHHIHHHHHHHEHHEHHHHHIHHHEHHEHHHEE 


2261 REGISTER ADDRESSES 
Egg EEE EE EEE 9 EEE dk EE SA db GE EAE tt 


TLELELELELLLAELEFLSLLLELFLLLLELLELLRLEEELEFLELE ELS LLLLSELELELE LES 
LLELALEFLEFLERALALELSELEA LLL LLLELELELSLELLLELLELELELALELLRELERLE SE 
LELALLLLLLLLLELLLLELLLLLELELLLLSSELELELELELELLLLELELFA LAS ASRLERES 
2434 ###PROGRAM SETUP & SETUP TESTS### 
SLAAFLEFLRELLLALELELELELAELE LES LELELELELELELLELLELERARELLLELLELLES 
2435 erretirrrtiitttritttritt ttt tit ttitetstittttitit itt titi iit tit 
SHEELLEAEELLLA LA LELAAELA ELE SELSLELSERELELELLSE ERASESEEELERLESREREE 
KEALEREREEEREAE REESE EEE E LEAR EEE EEEE ERLE ER EERERERERSEREEESEEREEEEE : 


e444 INITIALIZE THE COMMON TAGS 
SELLA LAL E EEE EE EEEE SELLE EEAERERLEE EERE EER ERREEEE ERE RE EEE 


lsddctinecdeetanationacn 








E02 
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2539 


RELELELLELLERELALAELELELRAALALALAES SAREE RAARRAARALAARRLE EERE RES 


GET VALUE FOR SOFTWARE SWITCH REGISTER 
SE EE EE EE EE EE 


e568 #$$TEST 1 REFERENCE EACH REGISTER 


2570 REFERENCE EACH REGISTER BY A MOVE INSTRUCTION 
2613 TEST 2 RHCS2-CONTROL AND STATUS 2 
2615 THIS PARTIALLY TESTS RHCS2 TO ENABLE DETERMINATION 

OF THE NUMBER OF DRIVES PRESENT 


2624 CHECK TO SEE IF PROGRAM IS RUNNING WITH AN RH70 

2644 TEST 3 PARTIAL TEST OF RHAS FOR UNIT NUMBERS PRESENT 
2662 #$£‘jTEST 4 TEST FOR DRIVES PRESENT USING RHAS AND RHCS2 
2718 SET UP UNITS TABLE 


2754 -IT’S NOT AN RPOS/RPOS/RPOS DEVICE 
a0 TYPE OUT THE DEVICE TYPE 


e795 ~=sTTEST S TYPE SERIAL NUMBER AND DRIVE TYPE 


2797 READ SERIAL NUMBER REGISTER AND DRIVE TYPE REGISTER 
TYPE IT OUT AND PROCEED 

2800 TO LOOP HERE SET SWITCH 8 AND THIS TEST NO AND RESTART 
28:0 TEST FOR UNIT 80 
2821 INCREMENT THE UNITS TABLE TO NEXT DRIVE (IF ANY) 

& DECREMENT THE “NOUNITS” PRESENT (TO BE TESTED) 
2920 TEST & CHECK MOL TO BE LOW 
2322 MAKE SURE THAT DIME I or LI TARTING PROGRAM 

‘TyPe OUT. THE 


IF DRIVE IS ON LINE T TER 
HANG FOR EVER WAITING FOR PORIVE TO GO OFF LI 


2957 TEST 7 PACK ACKNOWLEDGE COMMAND TEST 
23s9 THE PACK ACKNOWLEDGE COMMAND WILL BE LOADED INTO RHCS1 WITH GO 
THEN ALL KED 


PROGRAM WILL 
NE 


GIVEN 
N ALL REGISTERS WILL BE CHECKED 
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3022 TEST 10 MAKE CURRENT CYLINDER = 0 
JHE HHIHIHHHIHEGHIHHHEHHEEH HEHEHE HHHEHHHEEHHE 
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EE EE EA EE A 
_ ee 

JHHHHHHEEHHHHHHEEHHHHHEHHHHHHEEHEHHHIHEEIHEHHHEEEHHEHHEHEEEHHEE HE 

32 HHHEEHHHHHHHHHHHHHEHHIHHHHHHHIEHHHEEEHHI HEHEHE 

EEE EEE HEE EEA i ee 

3047 = TEST 11 BCTA LEGAL REGISTER RESPONSE TEST 

3089 TEST 12 BCTA MOVB LO BYTE TO WC 

3113. = TEST 13 BCTA MOVB HI BYTE TO WC 

3143. —s TEST 14 BCTA BISB LO BYTE TO WC 

3170 + =©TEST 15 BCTA BISB HI-BYTE TO WC 

3201 TEST 1& BCTA BICB LO-BYTE TO WC 

3229 += TEST 17 BCTA BICB HI- BYTE TO WC 

3272 TEST 20 BCTA ILLEGAL REGISTER TEST 

3314 TEST 21 BCTB (NED) NON-EXISTANT DRIVE TEST. (SET) 

3384 TEST 22 BCTB (NED) NON-EXISTANT DRIVE TEST. (CLEARED) s 

3428 TEST 23 BCTB AS REGISTER TEST 

3467 TEST 24 BCTC BUS ADDRESS REGISTER 

3527 TEST 2S BCTC BUS ADDRESS REGISTER LO-BYTE 

3874 TEST 26 BCTC BUS ADDRESS REGISTER HI-BYTE 

3633. = TEST 27 RH11 INTERRUPT TEST 

3667 = TEST 30 BCTD CLR L TEST 

3634 TEST 31 MXF TEST 

3700 CHECK TO SEE IF PROGRAM IS RUNNING WITH AN RH70 
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3729 “TEST 32 CSRB UNISUS PARITY ERROR SET TEST 
3735 CHECK TO SEE IF PROGRAM IS RUNNING WITH AN RH70 
3768 TEST 33 CSRB UNIBUS PARITY ERROR CLEAR TEST 
3801 TEST 34 CSRB UNIT SELECT CLEAR TEST 
3834 TEST 35 CSRB TRANSFER ERROR (TRE) - UPE . ' 
3840 CHECK TO SEE IF PROGRAM IS RUNNING WITH AN RH70 
3872 TEST 36 CSRB TRANSFER ERROR (TRE) NED 
3911 TEST 37 CSRA PSEL CLEAR TEST 
3940 TEST 40 CSRB COMMAND REGISTER CLEAR TEST 
3973 TEST 41 CSRB COMMAND REGISTER RESELECT CLEAR TEST 
4004 TEST 42 CSRB READY AND IE INTERRUPT TEST 
4036 “TEST 43 CSRB BOES “IE” CLEAR AFTER AN INTERRUPT 
4075 ‘TEST 44 BCTB “AS” WRITE TEST 
RELFEFRRAELES peetrtteetttitittttt ts} FEFERLEFEERLFSLARRKSRSLARLAARELE 
4107 EXTENDED MEMORY, DRIVE TIMING & SECTOR SELECT TESTS 
HLAKEFRELE LEER Perrerersrrerer ets tt ts SELELELEFLEFLEELLALLALARRLRKES 
4111 TEST 4S MAKE CURRENT CYLINDER = 0 
4129 ‘TEST 46 RHCS1 - BITS 8 AND 9 - EXTENDED ADDR (Alb 8 A 17) 
4131 WRITE mace Gr eee 0, ee os nOreER FLO WORD f ms 
RTS iLL Use ITs SOUTHS pant aNd Al? Ty REPOER, STATIS, pect HAN 28K OF MEMORY 
4142 CHECK TO SEE IF PROGRAM IS RUNNING WITH AN RH70 
y224 «TEST 47 DRIVE TIMING ERROR 
_— 6, TRACK O- o60 WORDS. VETER THe ABER TS READ IN CORRECTLY, 
nb S SYNC Bite (bara SYNC) IS GIVEN 
HEN NORMAL DIAGNOSTIC DATA CLOCKS AND DIAGNOSTIC 
SECTOR CLOCKS ARE GIVEN FOR 24 BYTES. 
N S36 BYTES OF SECTOR CLOCKS ONLY ARE GIVEN. 


THIS 1S TO TO BRING SECTOR PULSE UP WHICH SHOULD 
SET “DRIVE TIMING ERROR” - ‘DTE’ 
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4240 THESE ARE TO SETUP FOR DISKLESS USE 
4253 THESE ARE REGULAR SETUPS 
4269 READ & SAVE REGISTERS FOR COMPARISON AFTER SIMULATED 'DTE’ 
4277 NOW “60° WILL BE GIVEN EVERYTHING WILL BE TREATED 
Y FOR R. BUT WHEN IT Is TIME TO READ 
DATA ONLY SECTOR CLOCKS WILL BE GIVEN. NO DIAGNOSTIC DATA 
CLOCKS WILL BE GIVEN. THIS BRING SECTOR PULSE HIGH 
WITHOUT PUTTING “READ” "Hoan He OTE’ WILL COME UP. 
4300 NOW S60 SECTOR CLOCKS WILL BE GIVEN 
GAP 11 BYTES, SYNC 1 BYTE, avare Sle, ECC 4 BYTES 
GAP 2 BYTES, TOLERANCE 28 BYTES, EXTRA 2 
4304 THESE S60 SECTOR CLOCKS ARE DIVIDED INTO Two GROUPS 
24 SECTOR CLOCKS WITH NORMAL DIAGNOSTIC DATA CLOCK 
AND 536 SECTOR CLOCKS WITHOUT ANY DIAGNOSTIC DATA Rocks. 


4309 THIS GIVES 24 SECTOR CLOCKS WITH DIAGNOSTIC DATA CLOCKS 
WHICH EQUALS 3 BYTES OF DATA 


4325 THIS GIVES 536 SECTOR CLOCKS WITHOUT DIAGNOSTIC DATA CLOCKS 


4334 NOW *DTE’ SHOULD BE SET 
CHANGE SAVED REGISTERS TO EXPECTED VALUES 


4348 NOW READ & SAVE REGISTERS AGAIN SO THAT COMPARISONS 
CAN BE DONE (USE THE ’WRFROM’ SAVE BUFFER THIS TIME) 


4356 FOR RHAS UPPER BYTE 
4359. COMPARE THE HEADER READ 
4376 COMPARE REGISTERS BEFORE COMMAND WITH REGISTERS AFTER COMMAND , 
4399 TEST SO DRIVE TIMING ERROR vs 
4401 A WRITE DATA COMMAND IS STARTED ON CYLINDER 0, SECTOR 
0, TRACK 0, 256 WORDS. 
THE SECTOR IS FOR AND 
AFTER THE HERDER TS READ IN CORRECTLY, 
NO SYNC BYTE (OR 
NORMAL DIAGNOS 
SECTOR CLOCKS ARE BYTES, 
THEN 536 BYTES OF SECTOR CLOCKS ONLY, ARE GIVEN. 


THIS IS TO TO BRING SECTOR PULSE UP 
WHICH SHOULD SET “DRIVE TIMING ERROR” - 


DECDOC VER 00.04 





SEQ 0019 


























- 





*DTE’ 
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4417 
4430 
4446 
4453 


THESE ARE TO SETUP FOR DISKLESS USE 
THESE ARE REGULAR SETUPS & CHECKS 
READ & SAVE REGISTERS FOR COMPARISON AFTER SIMULATED ’DTE’ 


NOW °GO’ WILL BE GIVEN EVERYTHING WILL BE TREATED 
NORMALLY FOR T E HEADER, N IT IS TIME TO WRITE 
DATA OR CLOCKS Witt BE GIVEN, NO DIAGNOSTIC DATA 
Br ekS at WL ser sCiven. oils S SHOULD BRING ECTOR P PULSE HIGH 
WITHOUT ING READ D 


S60 SECTOR CLOCKS WILL BE GIVEN 
GAP 118 IES, | SYNC 1 BYTE, DATA 512, ECC 4 BYTES 
GAP 2 BYTES, 28’BYTES, EXTRA 2 


THESE S60 SECTOR CLOCKS ARE DIVIDED INTO TWO GROUPS 
24 SECTOR CLOCKS WITH NORMAL DIAGNOSTIC DATA CLOCKS 

AND 536 SECTOR CLOCKS WITHOUT ANY DIAGNOSTIC DATA CLOCKS 

THIS GIVES 24 SECTOR CLOCKS WITH DIAGNOSTIC DATA CLOCKS 

THIS GIVES 536 SECTOR CLOCKS WITHOUT DIAGNOSTIC DATA CLOCKS 

ECC PATTERN REGISTER IS NOT CHECKED 

NOW "DTE’ SHOULD BE SET, CHANGE SAVED REGISTERS TO EXPECTED VALUES 
NOW READ 8 SAVE REGISTERS AGAIN SO THAT COMPARISONS 

FOR RHAS UPPER BYTE 


COMPARE CHANGED REGISTER SNAPSHOT BEFORE COMMAND WITH 
SNAPSHOT AFTER COMMAND 


TEST S1 DRIVE TIMING ERROR 


A WRITE HEADER AND DATA COMMAND IS GIVEN 
TO CYLINDER 0, SECTOR 0, TRACK 0, 256. WORDS 


re pecren 8 ree ( THE ete F FLOP IS HIGH), 
TIC DATA eps Mis 
ONLY Yee aR CLOCKS ARE GIVEN TILL SECTOR’ PULSE IS HIGH. 
THIS SHOULD SET “DRIVE TIMING ERROR” - ’DTE’ 
THESE ARE TO SET UP FOR DISKLESS USE ONLY 


THESE ARE REGULAR SETUPS & CHECKS 


SEQ 0020 
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4616 
4623 
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READ & SAVE REGISTERS FOR COMPARISON AFTER SIMULATED 'DTE’ : 


NOW *GO’ WILL READER 1 VERYTH +R WI Lee ae 
Se TOk eLocee RS VEN NS DE 


DIAGNOSTIC 
SAG thio UNEG Wn ARSON et MORSE 


609 SECTOR CLOCKS WILL BE GIVEN, 
és BYTES FOR SECTOR GAP, 
ere SYNC 


1 BYTE FOR HE ‘ 
8 BYTES FOR HEADE 
GAP 11 BYTES, eve’ 1 1 BYTE, DATA 512, ECC 4 BYTES 
GAP 3 tT ES, TOLERANCE 28 BYTES, EXTRA 3 
THIS GIVES 609 SECTOR CLOCKS WITHOUT DIAGNOSTIC DATA CLOCKS 
NOW "DTE’ SHOULD BE SET, CHANGE SAVED REGISTERS 
NOW READ & SAVE REGISTERS AGAIN SO THAT COMPARISONS CAN BE DONE 
FOR RHAS UPPER BYTE 


COMPARE CHANGED REGISTER SNAPSHOT BEFORE COMMAND 
WITH REGISTER SNAPSHOT AFTER COMMAND 


TEST S2 SECTOR SELECTION 


THE SECTOR SELECTION LOGIC IS CHECKED HERE 
EACH SECTOR ON TRACK ZERO IS WRITTEN INTO. 


DATA IS — 19 WORDS OF ZEROS_- SYNC WORDS 4 HEADER WORDS 
1 CRC WORD, S WORDS OF ZEROS, 1 SYNC WORD, 100 ZEROS 
(DATA), 1 SYNC WORD, 70 SECTOR NUMBER TO VARY 
THE WRITTEN DATA IS CHECKED IN MEMORY 

THE FOLLOWING INITIALIZES FOR SECTOR 0 

CLEAR SIMULATED DISK AREA 

SETUP WRITE FROM BUFFER 

HEADER 

DATA IN WRITE FROM BUFFER ALTHOUGH THIS IS DATA AND NOT 

HEADER, THE SECTOR WITH SYNC BYTES WILL BE GIVEN AS DATA. 


SEG 0021 
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4774 


4811 
4818 
4830 
4857 
4870 


K0e 


PRERC ORD, "5 HORGS OF -SERG OF i OYNC ¢ HOR 00 ZEROS 
(DATA), 1 SYNC WORD, FEO al aE 5 YARY 

CLEAR REST OF 256 WORDS THAT IS S4Y WORDS OF ZEROS 

THESE ARE TO BE SET UP FOR DISKLESS USE ONLY 

THESE ARE REGULAR SETUPS 

NOW COMPARE “DISK” BUFFER WITH “REINTO” BUFFER 


THE FOLLOWING INCREMENTS ARE TO CHANGE THE ABOVE SET UP. 
TO WRITE ON THE NEXT SECTOR 


LELFLLELLLELALLLLLLLERELELLLLLELELELERA LALLA LE LLAEL RELA RAL RARAEE 


4890 


4895 


USING ECC 


DATA 
HHAARERARL KALA LAAALHELALALALEALLAALLA ARAL LLALLLLERL ALLELE LL LEREALER 


TEST S3 WRITE ECC TEST 1 
THIS IS A WRITE ECC TEST 
WRITE CYLINDERO, FORMAT 16 BITS PER WORD 
TRACK ©, SECTOR’1, KEYS 0, NUMBER OF WORDS 256 
OF ALL ZEROS. 
THESE ARE FOR ECC TEST ONLY 
THESE ARE TO BE SETUP FOR DISKLESS USE ONLY 
THESE ARE REGULAR SETUPS 
IF THE PROGRAM COMES BACK HERE WITHOUT ERROR PRINTOUTS 
FROM ROUTINE THAT NEAN S HEADER ON DISK 
IS GOOD IE. ONLY DATA IS TO BE CHECKED TO SEE IF THEY ARE 
ALL ZEROS AND WRITE DATA GAP AND TOLERANCE GAP TO SEE IF 
THEY ARE ALL ZEROS ra 
COMPARE SOFTWARE GENERATED ECC WITH THAT GENERATED. BY HARDWARE 
FILL “REINTO” BUFFER WITH EXPECTED DATA 
NOW COMPARE “DISK” BUFFER WITH “REINTO” 
TEST S4 READ ECC ENABLED 1A 
THIS -IS’AN ECC READ DATA TEST 
ERR ENABLED 


OR ERROR 18, INSERTED I 


000 "DA USED IS BE WORDS OF 0 
ROMANO fs GIVEN FOR CYLINDER O FORMAT 16 Bits PER WORD 
ae SECTOR O KEYS 0 READ HEADER AND DATA 
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SEG 0022 


- 
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S082 $$ THESE ARE FOR ECC TEST ONLY 
S094 § THESE ARE TO SETUP FOR DISKLESS USE ONLY 


S111 THESE ARE REGULAR SETUPS 


$137 Fron ve coro ROUTINE rine THAT ne EAs SECTOR GAP PRINTOUTS 


FIRST arte 
SYNC BYT NC) HEADER, HEADER CRC, HEADER GAP AND 
BETECHEDY 

HEADER AND DATA i 





SEQ 0023 













TO ED. 
IN CHECKING READ DATA THE HRT Rite FROM BUFFER 
a IS FILLED WITH EXPECTED DaTA AND 
COMPARISONS ARE MADE 


S165 ADD 16 MAINTENANCE CLOCKS TO 
BRING EBL DOWN 


5195 NOW READ DATA BUFFER WILL BE CHECKED 

S218 § TEST SS READ ECC ENABLED 1B 

S220 THIS IS AN ECC READ DATA TEST 
ERROR CORRECTION IS ENABLED 
A CORRECT ERROR IS INSERTED IN BIT POSITION 32 
GOOD DATA IS 256 


COMMAND IS GIVEN FOR CYLINDER O FORMAT 16 Bits PER WORD 
TRACK 0, SECTOR O KEYS 0 READ HEADER AND DATA 


S234 SETUP FOR WHAT IS TO BE READ 
HEADER CRC IS RESTORED FROM A SUBROUTINE 


SeS& THESE ARE FOR ECC TEST ONLY 
5268 #$ THESE ARE TO SETUP FOR DISKLESS USE ONLY 
S283. THIS IS TO INSERT E 


RROR 
THE DISK DATA IS_IN LOCATION STARTING FROM ’DISK’ 
iis Wee OF THE ERROR CAN BE CHANGED BY CHANGING 





















5234 THESE ARE REGULAR SETUPS 


5320 ~=<IF THE PROGRAM COMES BACK HERE WITHOUT ERROR PRINTOUTS 
OM THE “COMHD™ ROUTINE THAT MEANS SECTOR GAP, 
FIRST SYNC, HEADER, HEADER CRC, HEADER GAP AND 
SYNC BYTE HAVE GONE BY AND SYNCS WERE CORRECTLY 
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$324 
READER. AND DATA ARE TO BE CHECKED. 


“iREROR Is FILLED Witt ExPecTeD' Date MO 


swank GOOD DATA HAS BEEN PUT IN ’WRFROM’ 
_ NOW THE INSERTED ERROR WILL BE PUT IN 


NOW READ DATA BUFFER WILL BE CHECKED 

TEST S& READ ECC ENABLED IC 
THIS 7 AN 444 we DATA TEST 
: NON CORRECT PRROR TS INSERTED IN BIT POSITION 21 THRU 32 
GOOD DATA USED IS 2S6 WORDS OF 0 men 
COMMAND IS GIVEN FOR CYLINDER O FORMAT 16 BITS PER WORD 
TRACK 0, SECTOR O KEYS 0 READ HEADER AND DATA . 


THESE ARE FOR ECC TEST ONLY 


THESE ARE TO SETUP FOR DISKLESS USE ONLY 


THIS IS TO INSERT ERROR 
THE DISK DATA IS_IN LOCATION STARTING FROM ’DISK’ 
THis ROVE ION OF THE ERROR CAN BE CHANGED BY CHANGING 


THESE ARE REGULAR SETUPS 


THE PROGRAM COMES WIT’ ERROR PRI 
THE “COMHD” ROUTINE THAT MEANS SECTOR GAP, 

HEADER CRC, HEADER GAP AND 

BY AND SYNCS WERE CORRECTLY 


TECTED 
EE cm ORTA AS TO Re CAD. 
IN CHECKING READ DATA THE WRITE FROM BUFFER 
“WRFROM” IS FILLED WITH EXPECTED DATA AND 
COMPARISONS ARE MADE 


NOW THE INSERTED ERROR WILL BE PUT IN 
NOW READ DATA BUFFER WILL BE CHECKED 
‘TEST 57 WRITE ECC TEST 2 

WRITE EYLINDER O° FORMAT 16 BITS PER WORD 


TRACK 0, SECTOR 1, KEYS 0, NUMBER OF WORDS 256 
OF ALL ONES. 
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$609 


5861 


5911 
5913 


THESE ARE FOR ECC TEST ONLY 
THESE ARE TO BE SETUP FOR DISKLESS USE ONLY 
THESE ARE REGULAR SETUPS 
IF THE PROGRAM COMES BACK HERE WITHOUT ERROR PRINTOUTS 
FROM THE “COMWHD" ROUTI T MEANS ALL HEADER ON DISK 
1S GOOD IE. ONLY DATA i 10 WBE CHECKED TO SEE IF THEY ARE 
ALL ONES AND WRITE DATA GAP AND TOLERANCE GAP TO SEE IF 
THEY ARE ALL ZEROS 
COMPARE SOFTWARE GENERATED ECC WITH THAT GENERATED BY HARDWARE 
FILL “REINTO" BUFFER WITH EXPECTED DATA 
NOW COMPARE “DISK” BUFFER WITH “REINTO” 
TEST 60 READ ECC ENABLED 2A 
THIS IS AN ECC READ DATA TEST .. 
ERROR CORRECTION IS ENABLED 
NO ERROR IS INSERTED 
GOOD DATA IS 256 WORDS OF 177777 
COMMAND IS GIVEN FOR CYLINDER O FORMAT 16 BITS PER WORD 
-- TRACK 0, SECTOR 0 KEYS O READ HEADER AND DATA 
THESE ARE FOR ECC TEST ONLY 
THESE ARE TO SETUP FOR DISKLESS USE ONLY 
THESE ARE REGULAR SETUPS 


IF THE PROGRAM COMES BACK HERE WITHOUT ERROR PRINTOUTS 
FROM THE i A Ry On Bd 


FIRST SYNC HEADER CRC, HEADER GAP AND 
SYNC BYTE GONE BY AND SYNCS WERE CORRECTLY 


HEADER AND DATA ARE TO BE CHECKED. 

IN CHECKING READ DATA THE WRITE FROM BUFFER © 
“WREROM” IS FILLED WITH EXPECTED DATA AND 
COMPARISONS ARE MADE 


ADD 16 MAINTENANCE CLOCKS TO 
BRING EBL DOWN 


TEST 61 READ ECC ENABLED 28 


He S IS AN ECC READ DATA rst 
OR CORRECTION IS ENABLE 
CORRECTABLE ERROR IS INSERTED IN BIT POSITION 32 
6000 DATA USED IS 256 WORDS OF 177777 
C IS GIVEN FOR CYLINDER O FORMAT 16 BITS PER WORD 
TRACK 0, SECTOR O KEYS 0 READ HEADER AND DATA 
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SEQ 0025 
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592° TUP FOR WHAT 
ADER CRC IS RESTORED FROM A SUBROUTINE 


S949 =s THESE ARE FOR ECC TEST ONLY 

$361 THESE ARE TO SETUP FOR DISKLESS USE ONLY 

5976 ™ S af TQ I 
D 


T_ERROR 
t Font oF S_IN LOCATION STARTING FROM ‘DISK’ 
THE ERROR CAN BE CHANGED BY CHANGING 





5987 THESE ARE REGULAR SETUPS ~ 
6011 IF FF ate ERO COMES BACK HERE WITHOUT ran PRINTOUTS 









Fron HE COMO” ROUT TINE THAT THAT MEANS ANS SECTOR OR GAP, 
SYNC have "ene BY AND cyneS WERE CORRECTLY 


HEADER AND DATA ARE TO BE CHECKED. 


§017 IN CHECKING READ DATA THE WRITE FROM BUFFER 
“WREROM™ IS FILLED WITH EXPECTED DATA AND 
COMPARISONS ARE MADE 


£053 ONLY GOOD DATA HAS BEEN PUT IN ’WRFROM’ 
NOW: THE INSERTED ERROR WILL BE PUT IN 


$087  # NOW READ DATA BUFFER WILL BE CHECKED . 
6087 ‘TEST 62 READ ECC ENABLED eC 


6089 THIS IS AN ECC READ DATA TEST 
ERROR CORRECTION IS ENABLED 
A NON CORRECT LE SEE ERROR IS TREATED IN BIT POSITION 32 AND 2! 
GOOD DATA USED 
ane IS G at yen FOR cTETROER 0 FORMAT lé Bits PER WORD 
» SECTOR O KEYS 0 READ HEADER AND DATH 


6124 THESE ARE FOR ECC TEST ONLY 
6136 THESE ARE TO SETUP FOR DISKLESS USE ONLY. 
6151 THIS IS TO INSERT 


ERROR 
THE DISK DATA IS_IN LOCATION STARTING FROM "DISK" 
THE POSITION OF THE ERROR CAN BE CHANGED BY CHANGING 
THIS MOVE 

[ 





























b1é2 THESE ARE REGULAR SETUPS 
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$188 Ue Fg ae re’ for eee. ae oe 
os Sat te HERD eMC ies 
§193 DATA ARE TO BE a 


Ranges Aes eiTiS Rt REE 


6247 ONLY GOOD DATA HP een PUT IN "WRFROM’ 
NOW THE INSERTED E WILL BE PUT IN 


6255 NOW READ DATA BUFFER WILL BE CHECKED 
6274 TEST 63 WRITE ECC TEST 3 
6276 THIS IS A WRITE ECC TEST 


WRI Gaeeyo 0, FORMAT 16 BITS PER WORD 
TRACK 0 OR 1, KEYS 0, NUMBER OF WORDS 256 





















6293 THESE ARE FOR ECC TEST ONLY X 
6307 THESE ARE TO BE SETUP FOR DISKLESS USE ONLY iz 2 
; . « . ) 

6315 THESE ARE REGULAR SETUPS ‘< 
6348 IF THE PROGRAM COMES x WITHOUT ERROR PRINTOUTS 

FROM THE “COMWHD” THAT MEANS Hepp ON DISK 

15 SOD JE, OnLy pal M10 BE CHECKED Q SEE IF THEY ARE 

ALL AND WRITE DATA GAP AND TOLERANCE GAP TO SEE IF 

THEY ARE ALL ZEROS 
6377 ~=—s FILL “REINTO” BUFFER WITH EXPECTED DATA 
6395 § NOW COMPARE “DISK” BUFFER WITH “REINTO” 


6419 TEST 64 READ ECC ENABLED 3A 


£421 rs Te on Ete att TA TEST 
005 DAT sep Te WORDS OF 


I 

DATA S2S2S 

COMMAND I at FOR CYLINDER O FORMAT 16 BITS PER WORD 
TRACK 0, SECTOR 0 KEYS 9 READ HEADER AND DATA 


6434 SETUP FOR WHAT IS TO BE READ 
HEADER CRC IS RESTORED FRCM A SUBROUTINE 

























DO3 
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64S4 THESE ARE FOR ECC TEST ONLY 
6466 THESE ARE TO SETUP FOR DISKLESS USE ONLY 
6483 THESE ARE REGULAR SETUPS 


6509 Don te eres COMES HERE WITHOUT cfenre PRINTOUTS 
“COMHD™ ROUTINE THAT MEANS SECTOR GAP 
FIRST SYNC 


HE AND 
pal BY AND Eres WERE CORRECTLY 
FROM BUFFER 
ee oa ie ay TAL THE WRTTE Fon, Fr 
$537 ADD 16 MAINTENANCE CLOCKS TO 
BRING EBL DOWN 


6563 NOW READ DATA BUFFER WILL BE CHECKED 
6582 TEST 65 READ ECC ENABLED 38 


6584 te I ST 
sie ela. 1g Ts PER WORD 
6597 SETUP FOR WHAT IS TO BE READ 
HEADER CRC IS RESTORED FROM A SUBROUTINE 
6619 THESE ARE FOR ECC TEST ONLY | 
6631 THESE ARE TO SETUP FOR DISKLESS USE ONLY 


S646 ##$ THIS IS TO INSERT ERROR 
DISK DATA IS _IN elt STARTING FROM *DISK* 
POSITION OF THE CAN BE CHANGE 


SEQ 0028 


































D BY CHANGING 





H 2 MOVE 
THIS CHANGES THE LAST BIT OF THE ECC 
6663 THESE ARE REGULAR SETUPS 
6689 | ©=«dIF PROGRAM COMES HERE WITHOUT cfon cap ours 


FROM COMO ROUTINE THAT AT MEANS SECT 
FIRST SYNC GAP AND’ 
SYNC HAVE tai BY AND CFR L WERE CORRECTLY 


! 
| HEADER AND DATA ARE TO BE CHECKED. 
IN CHECKING READ DATA THE WRITE FROM BUFFER 
“WREROM” IS FILLED WITH EXPECTED DATA AND 





we 
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6737 


5746 
6766 
$768 
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COMPARISONS ARE MADE 

ony N PUT IN enereon’ 

BUT hoa Tee Tee EnmOR MILL OE Pu SO DATA. IS NOT WRONG 

NOW READ DATA BUFFER WILL BE CHECKED 

TEST 66 READ ECC ENABLED 3C 


Eran CORmEETYON 15, ENAGLED 


CTABLE ERROR IS INSERTED IN POSITION 296 THRU 308 


ot Baia SESE WORDS. OF 2525 


IS IVEN FOR CYLINDER O FORMAT 16 Bits PER WORD 
TRACK 0, SECTOR 0 KEYS 0 READ HEADER AND DATA 


SETUP FOR WHAT IS TO BE READ 
HEADER CRC IS RESTORED FROM A SUBROUTINE 


THESE ARE FOR ECC TEST ONLY 
THESE ARE TO SETUP FOR DISKLESS USE ONLY 


THIS IS TO INSERT ERROR 
THE CISK DATA IS IN LOCATION STARTING FROM ‘DISK’ 

THE POSITION OF THE ERROR CAN BE CHANGED BY CHANGING 
THIS MOVE 

THESE ARE REGULAR SETUPS 

IF THE PROGRAM COMES BACK HERE WITHOUT UT ERROR P PRINTOUTS 
Fron THE “COMHD™ ROUTINE THAT MEANS 

SYNC BYTE Tere ee GONE Bene SVN SYNCS rEACER GRE AO 


HEADER DATA WRE TO BE CHECKED. 


IN CHECKING READ DATA THE WRITE FROM BUFFER 
cierprsont aes WITH EXPECTED DATA AND 


24, TED ERROR WILL BE PUT IN” 


NOW READ DATA BUFFER WILL BE CHECKED 
TEST &7 READ ECC ENABLED 30 
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J 


6958 ERROR COREL on 1S ENR pee iEst 


Ganon ss INSERTED IN BIT POSITION 32 AND 4096 





T EAT BI 


Cia 


6973 SETUP FOR WHAT IS TO-BE READ 
HEADER CRC IS RESTORED FROM A SUBROUTINE 


6994 =THESE ARE FOR ECC TEST ONLY 
7006 § THESE ARE TO SETUP FOR DISKLESS USE ONLY 
7021 THIS oe bath YS IN Loe 
D S ne LOCATION STARTING FROM *DISK’ 
ne POSITION THE ERROR CAN BE CHANGED BY CHANGING 
THIS MOVE 
7032 THESE ARE REGULAR SETUPS 


7057 IE ate P PROGRAM ¢ COMES BACK HERE WITHOUT ERROR R PRINTOUTS 
FROM THE COMM” ROUTINE T THAT T MEANS SECTOR GAP 
Syne BYTE have cone BY one BY AND CPReS ERE CORR CORRECTLY 


7062 AND DATA x yo BE CHE 
iN ee Tri BxPec TE TE PRON BUFFER 
Mir DATA AND 












7118 ONLY GOOD DATA HAS BEEN PUT IN ’WRFROM’ 
NOW THE INSERTED ERROR WILL BE PUT IN 


7125 NOW READ DATA BUFFER WILL BE CHECKED 
A Se ge AEE Ee He a HE 


SHEE IH HEE Et 
7:42  CURSORY INTERRUPT LOGIC TESTS 
A A Ek eae ae AEE EE SE A A EE EE a a AE A A a a a Ha aE 









7147 ~—s TEST 70 PROGRAM INTERRUPT - 

7149 PROGRAM I TI TeareD BY SETTING ROY AND IE 
IN RHCS1 AT T TIME 
THIS SHOULD THROUGH LOCATION 2S4 


I T 
THE PROCESSOR PRIORITY IS SET TO 4 
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7184 TEST 71 INTERRUPT AT PROCESSOR AND DISK PRIORITY SAME same 


7186 PROCESSOR PRIORITY IS SET AT S (SAME AS THE DISK) 
IE AND RDY IS SET. THIS SHOULD NOT INTERRUPT 


,7el18 TEST 72 END OF DRIVE 
7220 THIS IS THE END OF TEST FOR ONE DRIVE 


IF ARE T 
JUMPS TO TEST S FOR NEXT ORIVE TEST 
END PASS IS REACHED ONLY AFTER ALL DRIVES ARE COMPLETE 


LHFLLLLLALALLLELLLELELLLESLALELELALELLLELELELLE AEA LLA ERE LE RARE EES 





LELEFLLALSLELLLALLLLS LLL LE LLLLLLALELLLELLALELELEELELLELELLELEELE 

JEHBHEHEHEHHHHHHGHHHE HEHE HHEHHEHHEHHHHEHHEHEHHEHHEHHEHHEHEE 
7265 #$###SUBROUTINES### 

SEELALAREAAELLAAAALERALRELRLLLLELELAELLEL EEE ALA SELLE LE LRELERELEES 


JHEHEHHHHEHHHHHHHBHEHHHHHHHHHEHEHHEHEHEHHHHEHEHHEHHEHEHHHHEHHHHHE ' 















pitirrritttrrrtiitittttitttttrtiititttiiitititttetiiiiieeriiiy 
JHHIHHHHHHHHHEHIHHHHHEHHHHHEHEHHIHHIEHEHIHEEHEEIHHIHEHEHEHEEEEE HH 
3H HIHHHHEHHHIHHEEHHHIHHHEHIHIHIIEE HHH IHIHIEEEEHEHEEEEHEE 
7275 INCREMENT THE PASS eee 


(SPASS) 
PASS (WHERE XXXXX IS A DECIMAL NUMBER) 
Fee ae he fo IT 


F THERE ISN’T TO TST1 
7318 WERE IS A DETAILED EXPLAINATION OF HOW THE LOOP ON ERROR HORKS. eP ' 
ON HITTING AN ERROR IF THE LOOP ON ERROR SWITCH IS SET, THE > 


7318 PROGRAM GOES BACK - USUALLY BACK TO THE BEGINNING OF THE TEST. 


7320 THIS TOR CTABLE QOP IS USED THEN THE POINT 
fT mst 6 il Tear CONSIDERATION sober 
é. Veta he 
bee ose aed he ee 
TEST EST SHITCH 15 S Heer AND THis. Opens QPERHTOR $e feb Point been LOOP 4s USED 


Cones TO THE END THe END OF THE TEST ONOER 


AFTER LOOPING FOR SOME TIME IF THE LOOP SWITCH IS PUT DOWN THEN 
NORMAL OPERATION WILL CONTINUE. 
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7393 


7420 


7496 





HO3 


PAGE 24 
RRELERRLLRLERA LEER RE LEER LEER ERE R REE RR EERE RARER REE R EERE REELS 

SAVE REGISTERS ROUT 

FELELLLELALELAALLLELLLERARA LRA LALAAAAAALSALRARA ALARA RERSARARL EEE 

LLELRERLLFAAAALLAASAARE LALLA LEER EARL LALLA ERRERERARARE ERLE ESE EEES “ - 


FLOAT 1 AND O fh 
SLFRFALELEKERAAARAERELALEKAALEAELAALARLAAAAASARAKALAAESARASLAAEKSES 


7423 FLOAT A ONE AND A ZERO THRU A DESIGNATED REGISTER 
ABSOLUTE ADDRESS OF REG. UNDER TEST IS IN RY \ 
ane * 


ce can aa ee ee 
FLLLELLLFLELLELELELELELESEELAEAALELA LARA REALE LAREA LA LARA SERRE LAF RAE 


7465 THIS CLEARS ANY BLOCK OF MEMORY 
FILLING IT WITH ANY DATA 


a 


;STARTING ADDRESS OF BLOCK 


x 
Y 

RI WILL AAVE STARTING ADDRESS OF Brock T0°Be FILLED 

RS AFTER SUBTRACTION WILL HAVE THICE NUMBER. OF LOCATIONS 


LEFLLELLLELALLELLLLLELELLELLALELALELELE LEAL LERALA LEELA ALLA EL EER 


LOCAL TRAPS 
SS SEE EE SESE EEE EE EEE EE GEE EE A AEE a a a a aE EE EE 


7504 XAMPLE OF OF THE ABOVE 
ire WILL LOOP BETHEEN X: AND SCOP1 PROVIDED THERE IS NO “NEWTST™ 
ot 8X, dsLAD 


SCOP: 





























103 
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RREFRAALELALAAAALEAALAALARRAAAAL REAL RARALLALAAAAALRLAAAAELRLALE LES 


7513 CLEAR DISK ROUTINE 
JEHHHHHEHHHHHHEHHHHHHEEIHHHHEHE HEHEHE HHH HHH 
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TTTttLTititUtt ULE LE EEL ELEELLititiiitiiitititititiiiie! 
752 CHECK DISK STATUS ROUTINES 
JHBHHNHHHHHHHHHHHHHHHBHEHHHHHHHHHHHHIHEHHHHHHHHHHHI HHH 


7M SES DEVE eR 0 MT TEL 
IT ales CHECKS THAT SF PORRER 8 PER Piece REGISTERS © 0 = " 
7587 THIS CHECKS THAT DEVICE Av BVRTLABLE, (OVA, AND, AND READY (RADY) TN RHCSL = 1, 


AND CHECKS THAT CE READY (DRY) IN RHOS1 = 
IT DOES NOT CHECK THAT OTHER BITS IN’ THESE REGISTERS = 0 


LLLLLALFRELLLLLLLLLLLELELLELALELALALELEAAAAAALARALERERLTEAALLLLL ES 


7624 WAIT LOOP ¥ 
JHB HEHHHHHHHHHHHHBHHHEHHHHHHHHHHHHHHEHHHHEHHHHHHHHHIIEEHEEHEHEHE 


7626 WAIT LOOP 

ONE LOOP OR ONE COUNT = 5.15 MI C WITH BIPOLAR MEMORY (MIN) 
ONE LOOP OR ONE COUNT = 11.86 MI C WITH CORE (MIN) 

WITH CORE ERROR IS INDICATED AFTER ABOUT 650 MILLISEC (MIN) 


| 7659 CALL FOR THE ABOVE WAITLOOP IS 
MOV aA, aaxs :A CONTAINS REGISTER ADDRESS 
. - ° HENCE X$ WILL HAVE ABSOLUTE REG. AOR. 
” 7 
Ss: 0 ;ABSOLUTE REG. ADDRESS UNDER WAIT 


0 BIT WAITED FOR 

; CONT INUE 
SR gE AEE eH EE AEE EE EE EEE EEE A HEE 
SE a EE EE EE a a a a a a A a a a a a a EE 










JO3 
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9-8 0 0 9 9 ESE EE 
7699 = WRITE CHECK ROUTINE 
SHHIHHIHHHIHHIHIEEHHIIHIHHEHIHIHIHIIHHIHIHIHHIHHHHHIHIHIIHHHIHEHEHIHIHHEHHEE 
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JEEHIHIEHHIIEIHIEHHIEHEIHHIEHIHHIHEHIHIEHEIHIHIHHIHIIHIHEEHIHHEEHEHHE 
7742 COMPARE ROUTINE 

SHEE $I HEHHIEHIHIEHHIEEHHEEE 

7746 THIS IS A SUBROUTINE TO COMPARE TWO BLOCKS IN MEMORY 


R1 HAS GOOD DATA ADDRES 
HAS 


TA 
Frey tes sess & revue OB 18 FMT AS 
Ra HAS ONE ROR THAN NUMBER OF HORDS TO BE COMPARED 


KELLLLALLLELLELELSLLLLE RELL LAE 








JHHHHHHHHHHEHHHHE 
7795S WRITE CHECK DATA 





JH HHEHHHHHHEHHHEE 
JHNHHHHHHHHHEHHHHEHHHHHHHEEHHE 






7841 CRC GENERATION ROUTINE 
JH HHH HHH HHH HHH HEHEHE 





JXBHHEE HEHE EBHEHHEHEHHHBHHBHEBHEHHEGHHEHEB HEB HEEHEBHEBHEE 

7935 §§ SIMULATED DISK SETUP 
J4HHHHHHHHIHIA JHHHHIHHHIH}HHIHHHIHIHEHIHHIHIHHHEIHHHiHHIIEHHIHIHHEHHiHIH HEHEHE 
JHE HEHEHE EEE HE 


KELLFLLLLELELLELELELLLLELERLLRLE 







JHE HEHEHHEHHER HE 
7982  ## CHECK HCE ROUTINE 
JHHHHEEE 






JE EEE EER EEE EE EEE 
8130 EXIT WRT HEADER & DATA ROUTINE 
JHHHIHHHHHHHHHHHHIHHIHHHHHIHHHHHHHIHHIHHHHIHHiIEEHHHHHHHIHHHEEEEHHHEt 







Mb MG SEE SEE SE SE AE eS aa a a a a a a a a a HE 


JEHHHHHEHHHHHHHHEHHHHHHEHHHE 
8164 JAM CURRENT CYLINDER ROUTINE 
JHHHHEHHHHHHHHHHHHHHHHHIHHIHIEHHIHHIHIHEHHIHHHEEEHEHHIHHHEHIHHIHHEEEHHHHEEHE 


8167 THIS SUBROUTINE WILL CHANGE THE CURRENT CYLINDER REGISTER 
THIS IS DONE BY GIVING A COMMAND THEN AN INIT 
WHICH WILL LOAD THE CYLINDER WITH THE DESIRED CYLINDER VALUE 


CALL IS: 
a RO, J8MAKECYL 














;DESIRED VALUE OF CURRENT CYLINDER | 















KO3 
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et ee . é, r; 





8203 





LELALELALELELARALALAA ALLEL ELRREARALRA LE LEE ARRAAAAERERAL ELE LLELEES ‘se 


8206 urs soe A AND TESTS ECC } . ‘ 


8386 §§ CHECK HARDWARE 
SARRSLEEESEOAEHASEEEOEEEESOEOLEHEREREELEEEEROEHEREREEEEROR IEEE 
JHHHHHHHEHHHHHEHHHHHHHHHHHIHHHHHHIHHIHHEHHHHHHHEHHHHHIIHEHIHHEEE Ht 


8436 §§ THIS SUBROUTINE WILL CONTROL THE ECC GENERATION ROUTINE 
FOR ERROR CORRECTION PROCESS 

CALL ¥ JSECORR ? 

sEXPECTED POSITION REGISTER WHEN CORRECTION IS COMPLETE \s 

4 


LELLLELLLLLELELALELL ALLELE LEASE LLLLLLELALLLELLLLELELA LEELA LELEEE 


8493 SOF THARE oie | eal ECC GEN. ROUTINE 
JHIHHIHHHHHHHHHHHHHHH HHH HEHEHE 


8496 $$ THIS SUBROUTINE GENERATES THE ECC FOR WHAT IS ON DISK AND INSERTS THEM 
ON LOCATIONS “DISK+1000" AND “DISK+1002” 


cat dad cae ee 















BASE 
JHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHEHHHHHHHHHHHHIHE HEHEHE 


8538 THIS ROUTINE WILL-ALLOW THE CHANGE OF THE BASE 
ADDRESS FROM 176700 TO ANY TYPED VALUE 


8603 THIS IS ALITTLE ROUTINE THAT TESTS NED BIT 11 IN RHCS2 
THIS Loors” HERE FOR EVER 
TO BE USED ONLY IF DRIVES PRESENT LOOKING AT NED DOES NOT AGREE 
WITH WHAT IS REALY 


(7 HHHIHIHHHIHHHHHHHHHHHHIHHHHHHIHIHHHHHHIIEHHIHHIHHIHHHE HHH 
8615 DISK SIMULATION 
JEHHHMEHHHHHBHHHHHHEHHHHHHHEHHBHEHHHII cc HEHEHE EHH 


8618 IN A WRITE HEADER AND DATA COMMAND FILL THE FOLLOWING 
WCLY=WITH CYLINDER TO . ON OtRK 
WSECTR=WITH SECTOR AND BE ON DISK 
WKEY1= WITH KEY] TO BE ON DISK 
WKEYe= WITH KEYe TO BE ON DI! 


FNWORD= NO OF DATA WORDS TO BE WRITTEN ON DISK 
THE COMMAND THEN IS JSR PC, COMWHD 













N A WRITE DATA COMMAND 
YL=WITH CYLINDER TO BE 
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SECOTR= WITH SECTOR TRACK TO BE FOUND ON DISK 
KEY1= WITH KEY] TO BE FOUND ON DISK 
KEYe= rust KEYe TO BE FOUND ON DISK 


H_NUMBER OF DATA WORDS TO BE WRITTEN 
THE COMMAND THEN IS JSR PC,COMHD 


tHE COMMAND THEN IS JSR PC, COMHD 


IN A READ DATA COMMAND FILL THE FOLLOWING 
CYL= WITH CYLINDER TO BE FOUND ON DISK 
SECOTR= WITH SECTOR AND TRACK TO BE FOUND ON DISK 
ive YesuItH Ke KEY] Oe FOUND ON DISK 

Ye TO BE FOUND ON DISK 
DRMORD= WITH NUMBER OF WORDS TO BE FOUND ON DISK 
;X=0 MUST BE ZERO 


THE COMMAND THEN IS JSR PC,COMHD 


WRITE DATA COMMAND 
OR READ COMMAND, I.E DATA ONLY, OR HEADER AND DATA 


THIS SUBROUTINE IS THE FIRST IN A SERIES OF NESTED SUBROUTINES 
ae DIAGNOSTIC MODE, AND EXTRA DIAGNOSTIC INDEX, AND THE 


~ 
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8690 #$IT THEN CALLS THREE OTHER SUBROUTINES, WHICH IN TURN CALL 
OTHER SUBROUTINES. THE SUBROUTINES CALLED HERE ARE: 


sISSHES SECTOR CLOCKS T To SET SECTOR FOUND FLOP 
sf HeATA (WRITE OPERATION) 
ites Th The eTmR DATA (RE ERATION) 
THE DISK SECTOR IS aeons AS FOLLOWS 
19 WORDS OF 0, ONE WORD 144000 
THESE MAKE 39’°BYTES FOR Se CTOR GAP AND ONE SYNC. BYTE 
S WORDS OF 0’S, ONE WORD 144000 
THESE MAKE t1 $a One FOR HEADER GAP AND ONE SYNC. BYTE 
THESE ARE DCL GENERATED 
THERE ARE 256 WORDS OF DATA 
THERE ARE 2 WORDS FOR ECC GENERATED BY DCL 
1S WORDS OF 0°S FOR DATA GAP AND TOLERANCE GAP 
READ DISK HEADER | 
CONTINUE. WITH DIAGNOSTIC WRITE COMMAND 
READ COMMAND START FROM HERE 
READ ONE WORD IN “WORD” 
WRITE ONE WORD WHICH COMES BACK IN “WWORD™ 
WRITE DATA HOUSEKEEPING ROUTINE 


THIS IS THE SIMULATED DISK 
ONLY ONE SECTOR OF SPACE IS ALLOCATED 


WRITE HEADER AND DATA 
THIS SUBROUTINE IS THE FIRST IN A SERIES OF NESTED SUBROUTINES 
IT Re DIAGNOSTIC MODE, AN EXTRA DIAGNOSTIC INDEX, AND THE 


IT THEN CALLS THREE OTHER SUBROUTINES, WHICH IN TURN CALL OTHER 
SUBROUTINES. THE THREE SUBROUTINES CALLED HERE ARE: 


SEARCH ; S SECTOR CLOCKS TO SET SECTOR FOUND FLOP 
WRHEAD ;WRITES THE SECTOR HEADER 
WRDATA ;WRITES THE ACTUAL SECTOR DATA 
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9245 - ALL OF THE ABOVE MENTIONED “WRITING” IS ACTUALLY DONE INTO A CORE 
BUFFER AREA CALLED *DISK’ VIA THE MAINTENANCE REGISTER (RHMR) 


9393 WRITE HEADER 

91000 «RO = NOINT AReR- 
Rl = SIMULATED DISK 
Re = BYTE COUNT 


R3 = WRITE WORD 
RS = WORD COUNT 
















9563 SEARCH SECTOR 

RO=RHMR ADDRESS 

R1=PASSED ARGUMENT (SECTOR SEARCHED FOR) 
K C PER BYTE) 


=BYTES PER WORD COUNT 


9577 BEFORE INDEX IS GIVEN TWO SECTOR CLOCKS ARE GIVEN TO RESET 
SECTOR PULSE IN CASE IT IS SET. 


9580 AT THE BEGINNING OF EACH SECTOR, ONE SECTOR CLOCK HAS TO RISE 
BEFORE MAINT. CLOCK, THEN EVERY. EIGHT MAINT.CLOCKS, ONE SECTOR CLOCK 
IS IDENTICAL WITH THE MAINT. CL 
THE SECTOR CLOCKS ARE NUMBERED AS *FOLLOMS: 

9585 THE SECTOR CLOCK UNDER INDEX - 0 
THE NEXT - 1 
THE NEXT - 2 


ETC. 

THEN THE LAST SECTOR CLOCK IN ONE SECTOR HAS NUMBER - 608 
THE NEXT SECTOR WILL. HAVE 608 SECTOR CLOCKS 

pA 3 NEXT Ah mel OR THEN HAS ANOTHER 608 SECTOR CLOCKS 


9623 FOR FIRST BYTE MAINT. SECTOR CLOCK WILL GO HIGH, THEN MAINT. CLOCK WILL GO HIGH 
BOTH WILL COME DOWN TOGETHER, THEN SEVEN MAINT. CLOCKS WILL BE GIVEN 
FOR SECOND BYTE. AND ALL OTHER BYTES TILL NEXT SECTOR, SECTOR CLOCK 
WILL BE IDENTICAL WITH ONE MAINT. CLOCK 


9683 READ ONE SECTOR OF DATA 





pn er ee oe ee 
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9726 


gre? 


9728 


9732 


BOY 


RRLLRLSPLSSSRAASSHHERSSRLLLERELRAKSPLARALHLELELAS RASA RES ELS SELES 
SRFLLERAALSRARRELKLSRAALKESRESELESLSLRAALLHLELELHLSRERELHLAARLEL ERE 
KLLLSLRELESLAATSRESFLLELRELHLHRALLALELALEHLARELRAELSRA RA ELE LL EES 
eeeSYSMAC LIBRARY ROUTINES### 

TERRELKELELLLSLLELLLELELLELSLERSRASEA EL HLALLELALELSSLA RAS SEARELES 
RELRERELFRLERELELAHERREREALERATLELTLAREHLALAELRELARELLRAERERA RAD 
TLKLRAALELALERELAHKESELHLKLARELELELLA LLL LELERESRLLSLRLLLASHLELELES 
REEELELRLRRLLEHESEESEEEERERAARERRERERERELEEASALAL EER AEEE EEE REESE 
Soo onenenacacer aie squanennaneqnnuuennqunssennuensnvensuscesoers 


9738 AO LORD CONTROLS THE Lome ING OF SUBTESTS. IT WILL INCREMENT 
TEST NUMBER(STSTNM) INTO THE DISPLAY — (DISPLAY<7:0>) 


FLAG (SERFLG) INTO Ot TseLAYs: 
3 Gps Bia Bde ath 
Sulit TRNTBTT I TIONS 
— LOOP ON TEST IN SWR«<7:0> 
SCOPE ;; SCOPE=I0T 
FHFELELHLLELEESELELELLLELEELLESELAELERELELERALERELLLLLSEALSEREEES | 
CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 
SHELSFELSALELELERKELHELELELSELELE LEELA LRALERSEELALELSLLSRERLELE LAS 
$809 THIS sy ti os aeP ts CHANGE A igegit sey NUMBER TO A ee 
ROMER TS. NUMBER AND T IT. DE I WHETHER T: 
15 POs rive 9 NEGATIVE A SPACE OR A MINUS SIGN WILL ee TYPED 
IGIT OF THE NUMBER. LEADING ZEROS WILL ALWAYS BE 
REPLACED Sirs H SPACES. 


NUM, -(SP) ;;PUT_THE BINARY NUMBER ON THE STACK 


MOV 
TYPOS 4360 TO THE ROUTINE 
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JHE AHHH HEHEHE HHH HHH HHH HEH HHH EHH 
9873 TYPE ROUTINE 
222 HHH HHH 


9876 ROUTINE T aes ae MUST renee wh. 8 ? By? 
te ADUTINE. MTEL A en th L_CHARACTERS AF wen EED. 
: $NULL CON nih THe NCHARAC R TO BE USED AS THe. FLLE CHARACTER. 


TEl: 
NOTE2: S$FILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED 
NOTES: SFILLC CONTAINS THE CHARACTER TO FILL AFTER. 


CALL: 
1) USING A TRAP INSTRUCTION 
on TYPE ,MESADR ;;MESADR IS FIRST ADDRESS OF AN ASCIZ STRING 
TYPE 
MESADR 


MTT iit iiittititiiiititiiiiititiiitttiitt tie. 


3943 = TTY INPUT ROUTINE 
ee 8 gE RE AE EEE EE 8 A EE EE EG a RE EE ER EAE EEE 


994 N 
a RD QuTTRe MILL IN TIA 1s THE TTY KEYBOARD INPUT QUEUE 
INTERRUPT VECTOR AND TURN ON THE KEYBOARD INTERRUPT 
JSR PC, STKINT 
RETURN 
9971 TK 


ae ROUTINE 
THIS ROUTINE WILL SERVICE THE TTY KEYBOARD INTERRUPT 
a READING THE CHARACTER FROM THE INPUT BUFFER AND PUTTING 


IER SHMPEIEE TS A.COONTROL=C™ (46) STAINE 16.CRLLED ED ceces 


10023 SOFTWARE SWITCH pecrsres Cee OS ts 


SERVICE | Tre ST POR’ CHA CHANGE IN Peet Wit REGISTER TRAP 
CALL WHEN 


TING IN TTY ; 
10038 CONTROL IS paste TO THIS POINT Tow REGISTER Thee TTY INTERRUPT mS: 


CONT Oe Brine T T ND THe ure TCH REGISTER BEING REELECTED L. 


10109 THIS ROUTINE WILL peut A SINGLE CHARACTER FROM THE TTY 


CALL: 
Rasen SDAA POT SPT, 
;;WITH PARITY BIT STRIPPED OFF 
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10133 THIS ROUTINE WILL INPUT A STRING FROM THE TTY 
sil TRING FROM 1 
ce BrP test TER WILL BE ON THE STACK 
tT OERNIRATOR WILE BEA BYTE OF AL Bs 
REFKHEKFRLREPFHSRSSHSERLHSLHKKRSELLELARKRRSSKHERHVSAPHESEREASSAERSHES 
aN FROM THE TTY 
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RETURN HERE 






AD 
SEE 8 EE EE AE EE 9 4 EE gE EE a 
10174 THIS ROUTINE an — AN OCTAL (ASCII) NUMBER FROM THE TTY AND 


Seat opt BINARY 
TERS WILL BE Ce CKeD 1%. INSURED THEY 


OCTAL "OIG fear IF AN I eee y S READ A ™?" Wit i =TYPED 
A Canc TURN- . THE COMPLETE R 
RETYPED. THE INPUT IS REINA BY TYPING A CARRIAGE RETURN. 









RDOCT ;;READ AN OC i, ya 
RETURN HERE ;;LOW ORE A T¥s" a OP OF THE STACK 
; ;HIGH ITS ARE fn SH I0CT 







LLELEFTLAELLELLELELALELELRFERELELE LALA EL SLERELALELAERLARL ALLELES 
‘LHELLEAALLLELELAALELEFELLERASELELEAELEL LEASE LALLA LSERLLASSELAL SEE 


10227 THIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT, 
SAVE THE ITEM NUMBER AND THE ADDRESS OF THE ERROR CALL 
AND GO TO SERRTYP ON ERROR 
THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 







ERROR N ;;ERROR=EMT AND N=ERROR ITEM NUMBER 
Reb ARSE SEE ARE EA EAR AEE EERE EE EEE REE ERED EERE 
ERROR MESSAGE 







SELELSELELELELLSLLLLLLELLELALELALELELELSLLE LAS LAE LALEELELERALLEE 


10275 THIS ROUTINE USES THE “ITEM CONTROL ok y (SITEMB) TO DETERMINE WHICH 
ERROR IS TO BE REPORTED. iT THEN OBTAINS, FROM THE “ERROR al (SERRTB) , 
AND REPORTS THE APPROPRIATE INFORMATION CONCERNING THE ERROR 
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DECDOC VER 00.04 
JH HHH HHH HHH HHH BE 
10328 BINARY TO OCTAL (ASCII) AND TYPE 
3-3 9 9 EE EEE a 
10331 THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A &-DIGIT 
OCTAL (ASCII) NUMBER AND TYPE IT. 


as OS ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 
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MOV NUM, -(SP) ;;NUMBER TO BE reno 

TYPOS di a FOR TYPEOUT 

-BYTE N ;;N=l TO 6 FOR NUMBER OF DIGITS TO TYPE 
-BYTE M ;;M=1 OR O 


iid 1=TYPE LEADING ZEROS 
;;O=SUPPRESS LEADING ZEROS 


pr eee on Eevecc TO TYPE OUT WITH ne SAME PARAMETERS AS THE LAST 


STYPOS OR STYP 
CALL: 
MOV NUM, -( SP) ; ;NUMBER i Ne 
TYPON ;;CALL FoR TYPEOUT 
STYPOC---ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER 
"MOV NUM, -(SP) ;NUMBER TO BE TYPED 
TYPOC SCALL FOR TYPEOUT 


TELELELELELEALFLELELLLLALELELLELALLLALLEELELERLELRERKLALALARALAERE 


1340S TRAP DECODE 
AER RE AE EAE AEE AE SEE SE AEE SE EE A a EAE EE AEE AEE EE EEE 


10498 THIS ROUTINE WILL PICKUP THE Liner 8 BYTE OF THE “TRAP™ INSTRUCTION 
AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING RODRESS 
OF THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL 
GO TO THAT ROUTINE. 


FELFELELLFLLELLALELELLLALELLE LLL ALRELEAELALELLLAALLEA ALE RAREFLLEL 
i0421 TRAP TABLE 
LLFFLLELELELALLA ELL LALELALERELELELELELELELALERELLEHAERAFRAAALELER 


10423 ts TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
BY THE “TRAP” INSTRUCTION. 





FOY 
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SR ESE ESE HEE 698 99 9 9 RE EE RR EEE EEE de de EEE aE 
POWER DOWN AND UP ROUT 
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10444 
FELERALEALLALKRALAARELALERELERAA ALAA LALALA SERA LEAAARALERAERA LESS 





TRLLREREEALLAE FERAL RE RAALAA HALA ALARA REAL RAHRALARAARAAA AA KRLAAE 
77 e938 )=—s_( 20S 





2261 e433 = 2434 2435 244 


LEFRRAFTLRARELALALELE ERATE RAL RAERALRERAA LLL ARELAALAEALAAELRALH RAE 


mm ne ee 
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MACYIL1 27(655) 
DZRIHA.ITM TABLE OF CONTENTS 


30-MAR-76 20:59 
41 #HKERROR TABLE, BIT DEFINITIONS 8 STARTING ADDRESSES##® 
“4 OPERATIONAL SWITCH SETTINGS 

DEFINITIONS 

TCHER 


a MEMORY MANAGEMENT DEFINITIONS 


COMMON oer eR 
ERROR POINTER TABLE 
HARDWARE REG aiuR Err DEFINITIONS 


2438 ##*PROGRAM SETUP & SETUP TESTS### 
2448 INITIALIZE THE COMMON T 


2843 *' VALUE FOR SOFTWARE TCH REGISTER 
i HT Rerbnene en es Bila in 
1 RHCS2-CONTROL 
e549 T3 PARTIAL TEST OF b st an UNIT NUMBERS PRESENT 
chSs TY SENT USI 
ae 
3032 T10 MAKE CURRENT CYLINDER = 0 . 
sou? #*EDIAGNOSTIC CODEH## | 
3048 








Tl cal t TEST - 
101 Tl : 
31 Tl 
3157 T14 A BIB Hi i Wc 
3185 T1S_- BTR fies HI-BYTE T 
32317 Tl 
ey 1 ia GAL Ae 
3333 Tel re ANT BRIVE TEST. (SET) 
3404 Te2 DRIVE TEST. (CLEARED) 
3449 Tes T 
3c83 15 Hi 
3598 T2b TC. Bus 
3658 Te? RHI INTERRUPT TEST 
3693 T30 BC re L TEST 
re 132 Cone URIBUS PARITY 
K2Re UNIBUS PARITY 

ne wer Bociy: 

ie oe 

T CSRA PSEL 

THO CSRB C REGI 
4008 TH] CSRB COMMAND REGI 
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FLTINI. rt TABLE OF CONTENTS 


BeBe’ cen AFTER TEST 
ie at TER AN INTERRUPT 


bre Tee & _— SELECT TESTS 


wee EXTENDED ADDR (Al6 & A 17) 


OR 
DR 
DRI 


my 
sa 


ti 
fe 


EROS Iwu Kase 


merry 
888 


* 
8 
m 
4% 


Cane 
SSHee 
fe 


INTERRUPT AT PROCESSOR AND DISK PRIORITY SAME 
END OF DRIVE 


###SUBROUT INES### 


aaa 


END OF PASS ROUTINE 
on FLOAT LAO 0. ROUT INE 


SK DATA ECC GEN, TROUTINE 
CHANGE ROUTINE 


7278 
7327 
7328 
7329 
7334 
7455 
7482 
7S23 
7558 
7575 
7588 
7686 
7731 
7761 
7805 
7857 
7903 
7397 
8044 
8192 
Beeb 
8eéS 
8495 
gsss 
8597 
8677 
9788 
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: SCOBYR gary tc) 170 »RPO4/S/6 DSKLS CONTROLLER TST-PT 2 
ESOIGITAL EQU Ae tf: 

g RIVED, MASS. 

| SPROGRAN BY PETE BLACKSTONE 


SSTHIS PROGRAM WAS ASSEMBLED USING THE PDP-11 MAINDEC SYSMAC 
sEPACKAGE (MAINDEC-11-DZQAC-CO),MAR 21, 1976. 


tt 
WM —OWO IW £ tf $ 


5 7RNS ZN NG ZN GS ZENS ZN GS ZENG ZN ZN GS ZENG ZRNS ZENS JBN ZENS ZENS ZENS JENS ZEN: 
S/HNS IAS ZEN: ZENS ZENS ZENS ZRNG ZENS ZENS ZENS ZENS ZENS ZENS SENG ZENE ZENS ZENS EN: 
2/#X: SENS ZENS ZING ZENS ZENS ZING ZN ZENS ZBNS ZENS ZNSE RNG ZENS ZENS ZENS ZENS ZEN: 


:DRIVE MUST BE LOCKED ON PORT A OR PORT B 
378 NBS ENR ENR ENR ENR ENR ENR ENR ENR ENR ENS ENE ENE SNES SNR ENR ENE ENE 


t/: Niky V7 2 NZ NZ NR NZS NR 8 NZ SNR NZ SNR SNR NR SNR SNR NRA NBS NE 
24: oN NR SNR SNR 8 NZ SNR NZ SNR SNR SNR SNR SNR SNR SNR SNR SNR NBS NE 


; INTERNAL PROGRAM MACROS BEGIN HERE 
itrtittiitiititiiiititiitit titi tt 


FTleielaiolleiaiaileielaieleiainileieinieiaisieisisiaileisiaiieisisiieisisiaiisisiseieisisileisisisieieisise 
Lig gh SMe WITH “.$" ARE SUPPLIED FROM AN 

;# WHICH MUST BE MADE AVAILABLE 

e 0 THE SOURCE PROGRAM AT ASSEMBLY TIME. 


eriiiiiiititititiiitiiiittiitistietitittertititirititittiteriiey 


-SBTTL OPERATIONAL SWITCH SETTINGS 


S$ OMPARES, IS LOW 
ECC TEST-CONPARE END RESULTS ONLY IF SWCS IS LOW 


BE RK SR IK OR ac ai Oe a Oe 


bee 
OnrNDVOO-mww & 


es 
26 
e7 
28 
e9 
a 
33 
34 
; 
38 
33 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
SO 
Si 
Se 
53 
S4 





SEQ 0048 
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MACY11 27(655) 


04/S/6 DSKLS CONTROLLER TST-PT 2 
RATIONAL SWITCH SETTINGS 


JH-A, RP 
OPE 


oe + ee 
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IT BASIC DEFINITIONS 


MNDEC- 
DZRJHA 

3 -SBTTL BASIC DEFINITIONS 
$8 
5 


{XINITIAL ADDRESS OF THE STACK POINTER *#* 1000 *#% 

f HY SOTsESGRE «sc BRETE BEEINTHN OF ERGRE GL 
:#MISCELLANEOUS DEFINITIONS 

64 hiT= Il CODE FOR HORIZONTAL TAB 

65 = ::CODE FOR LINE FEED 

::CODE FOR CARRIAGE RETURN 


. }3CODE FOR CARRIAGE RETURN-LINE FEED 
;;PROCESSOR STATUS WORD 


;;STACK LIMIT REGIST 

it Bhogal INTE ; RE Quest REGISTER 
= 177570 ; ;HARDWARE SWITCH REGISTER 

DDISP= 177570 ; ;HARDWARE DISPLAY REGISTER 


Apc NERAL PURPOSE REGISTER ORERAL REGISTER 
Ri= ; | GENERAL REGISTER 
GENERAL REGISTER 


;;GENERAL REGISTER 


Ss 


7 
QUIV R6,SP 3;STACK POI 
IV R7,PC ;;PROGRAM COUNTER 


wo 


EE 


PR1= 
PRe= 


aa 


2222 
NOU cCWMrH-O 


223333 
ininininiain 


PRY¥= 

PRS= 

PR7= 

s#°SWITCH REGISTER” SWITCH DEFINITIONS 
= 100000 


Gwid= 
= 40000 


<< 
Ap 


+ 
~< 
_ 
fe 


<£ 


eevee 
eave 


Sc 


Pees 


“NI 


66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
3 
80 
81 
82 
83 
84 
8S 
86 
87 
88 
89 
90 
91 
Se 
93 
34 
3S 
36 
97 
98 
33 
00 
01 
Oe 
03 
04 
OS 
06 
07 
08 
03 


b= be b= a be bs BP Fe pe 





MO4 
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SEQ 0050 
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apeee Beer wee TST-PT 2 


000010 


DzRiha. {7h 


2 § 
oe 28 
oe = Gi 
S) cs * 
sa & ¢ 8 
eo af ~ § 
a e.g 
: okt geet Se 
2 Be vapashe 
: SER Besar 
a S OR OR OMeD em ememem enon 
é z 
— Cor OWT MU-O 
SURGRS Ets 
er eueniicg 588s Psp avesNes 
cow SIISSHTEGS SSeEE RES RScce, EEoceres 8 cxssaeang 
t tt “un uo 
UX NWIZeEEPEPAPE THLAMMALSY AP LLL M ERED DDD DDD> gosseueeees 
guogssassasses Snnrnenreeehereenassadasdad Seance cares 


“MMDMOMOMOMOMOMMMMMMmMmMmM +--+ +++ e+ ee ee ool 


a Sper cosceaeeceee eeeeacece: 


SSLIE NAS SORA ARRAN AMAR RRS TUTE PSS PE RAMANA T RN 


Se Rea Keme ame Kem Ketone Kem Keen Rome Kon hom Kem Kon Ron hee Ro ko hee ho ke re fT) th ad 4 He 
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DZRJHA. ITM BASIC DEFINITIONS 


164 000064 TPVEC= 64 ;; TTY PRINTER VECTOR 
it 000240 PIRQVEC=240 __. PROGRAM INTERRUPT REQUEST VECTOR 








poaina- ith 


0- + b+ 0-2 b-— 9 6-2 &-< 9-2 &-< 6 O—< b+ 9-2 9 §—0 = B= 9 9 2 + = 2 © § © b= = 2 6 Bo Bo 
ao 
“§ 

2 


BOGRA LOH SBR SPR EOH Bse8 tod Jd 3S 


33 


futu 
Fa Seg 
Ube 


—— 


Sactasnsnnrnsienentntans 


030210 


“A,RPGA'S 


TRAP ¢ 


~~ oe 





017356 


S17346 


a CONTROLLER TST-PT 2 MACY11 27(655) 30-NAR-76 20:59 PAGE & 
© 


?/ 
‘ 


-SBTTL TRAP CATCHER 


.20 
;* prise LOCATIONS FROM 4 - ONTAIN A “.+2,HALT™ 
3g NCE Po CATCH ILLEGAL TRAPS. ANG INTERRUPTS 
;#LOCATION O CONTAINS O TO CATCH IMPROPERLY LOADED VECTORS 


DISPREG: WORD 0 ;:SOFTWARE DISPLAY REGISTER 
SWREG: | [WORD 0 FOR TWARE SWITCH REGISTER 


-SBTTL ACTI1 HOOKS 


$s BEEFEREREFERSFAESHSSRARRRRESRHLEE LEVEE RKERGSL RFS RESESERS GS SHES HES 
:4OOKS REQUIRED BY ACT1I1 
$SvPC=. 


“4 ;SAVE PC 
3 ;:1)SET LOC.46 TO ADDRESS OF SENDAD IN .SECP 
“WORD 20000 ;:2)SET LOC.S2 TO 20000 
. =SSVPC 3; RESTORE PC 
\SBTTL STARTING ADDRESSES 
,=200 
j SeBEGIN ;NORMAL START 
.2210 
inP = QNBEGINE ;SELECT DRIVE START 


; #STARTING SS 200 FOR NORMAL STARTS 
!@THIS WILL TEST ALL RPOY’S ON THE SYSTEM A SINGLE DRIVE AT A TIME 


3% 
s®#STARTING ADDRESS 219 WILL TEST ONLY ONE SPECIFIED ORIVE 















; 


tu 
IF 


eiatel 


rurururururufruturu 
Ce ied Sead deol el aed ed oe ed 
OD IOUT £6 LIT 


aN RIS ina ate oath it 


%, 


2 
we 
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MANAGEMENT DEFINITIONS 


NENORY 





-SBTTL MEMORY MANAGEMENT DEFINITIONS — 
;*#KT11 VECTOR ADDRESS 

MMVEC= 250 

;#KT11 STATUS REGISTER ADDRESSES 

SRO= : 72 









;#KERNEL “I” PAGE DESCRIPTOR RESISTERS 
i 172300 


fale 
72316 








NNDEC-11-D2RJH-A, RPOY/S-6 DSKLS CONTROLLER TST-PT 2 
-ITM OMMON TAGS 





ogc 


SPINSEIR SURULHSFEASRRSRBRPNGSH cos 2ONSS 
Bs 


S8888888 SSSBSSSSSSSS88SSS8S8888S8S8S8S88S8 


4 


aS Te ETRE ata bb sO b= = bs = = Fb 0 fh bs Be bo Be 92 9-2 Bo Be bo 0 Ho > bo = = Oo pe 


BS88 
= 
SuruturuTuTuTeTeeceseese—e2e— > 6 b= b= b= 6 b= & = = 0 bh bb bh fh — = 6 = P= Ph 0 Ph 9 Bo > hb po pp a pe Hp oe 


BRE BSE ERE RE SSA SINS CoAT ER SOURS Se GRRE ORES 





=+ 





DO 
MACYL1 27(655) 30-MAR-7& 20:59 PAGE 8 






.SBTTL CUMMON TAGS 


jy RRARRHEERHRAEERREEAEEOEERREREROEEEREREREELEHEREERERESEREDS SEE 
sATHIS ae CONT ew ef VARIOUS COMMON STORAGE LOCATIONS 


SCNTAG: a TART OF 
sige ae 0 + ONTA Pass coun 
TSTNM: .BYT' 0 a TA He TES 

G: .BY 9 33 al 
TCNT: WORD ss CONTA we COUNT 
be ¥ 5 CONTA a gj 
SERTTL: . 0 ;;CONTA TAL 
$I : .BY 0 ;;CONTA AL 
SERMAX: .BY 1 ;;CONTA 
ioe eS cava Be gem 
SSOADR: “WORD «0 ae ae Be DATA 
Sabpat; “WORD OO ‘Suan ° kta 

“WORD 0 

NT OE: ‘Bre auTovary ¢ Robe INDICATOR 
SUR: “HOR DSWR OF MITCH GISTER 
ISPLAY: DDISP ee OF br Y REGISTER 
STKB: 17730 ity 
Sipe: iosebe TTY PR PEG. a 
: it: B ., aa , : ats Nea a Rey pace 
Ha LG: .BY 0 erat Fag (Blt «67> a 
SREGAD: ; 0 i CONTAINS S Te A s_FROR 
SREGO: .WORD 0 conta c¢ 49) 
sree “HOR 5 + CONTA (( ei 

: WORD ;;CONTA (( )+6) 
fee: ge came (ese )s19 
aie "WORD 0 Hee t 
TMP3: “HORD 5 3 E 
STMPY: WORD 0 3 ;USER 
Stns: "WORD 0 :USER 
STIMES: 0 HnaK, OF ITERA TERATIONS 


SEPCHPE Ooi czor<g77«a77) TiRBBE FOR BEL 





a meme 
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DZRIHA.ITN == COMMON TAGS 


33 bei sss rf Soa cH ag HCarata Tage BET ORN 

338 901224 900012 (12) FEED 

$7 ot iecnebcasssnescecnvennenensenkiseotecsssvseannnetsneneneseeene 
| 


' 
ee ee me ee eee 






EEF 


001226 


WI WI GIWIGIWGIWILIGIG 
— 0—- 2 02 92 Fs bo he pe 
WONMWUIL WIfH-O 


SLRRECAAS ORAM REE VO EOS 
g 
: 


BS 
8 
2 


a 
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OZRIHA. ITM ERROR POINTER TABLE 


010464 


012352 
012670 


00222: 
010247 
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. SBTTL ERROR POINTER TABLE 
sates TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR. 


HLS Gal TON si SiTENe. t 15 RUPEE PINOT CATES B RICH hen in THE TPR me PERTINENT. 
Ea: 


Each TSE EM IR Pe TABLE CONTAIN 4 PO 4 POINTERS. SSPLAINED AS FOLLOWS: 






tENOTE 
7# OEM +39 NTS TO T 
3 DH POINTS 19 THe Bae HER HERDER 
3% OT POINTS T 
+ OF sHPOINTS 8 THE BATA FORMAT 
SERRTB: 
; ITEML 
EN s WRONG DATA IN READING OR WRITING HARDWARE REGISTER 
REG. ADDR. 
pone DATA 
DT1 : SERREC, STSTNN, REGADR, SGDDAT , SBDDAT 
OF 1 :0,0,0,0,0 
; ITEMe 
EM2 ERROR ON DATA COMMAND 
DH33  sPC 
ot ar 
AON RHCS1 
BES 
0733 SERRPC BCISR STSTNM, ERWORD, SGDDAT,°S1,0S1.ER1 
OF33 i SERREC PCs ,0,0 
; ITEM3 
EM2 ;ERROR ON DATA COMMAND 
DH32 ;PC 
PC OF 


TEST NO 












O012eSe 012326 
001eS4 012657 


001256 02221 
001260 019051 


iaiiiaeiniaiaal: Z 


262 012304 
001264 012647 


te 012304 
1e74 012647 


002250 
001300 010247 


SSSI BUR NBER aE BREREBECTT 
88 8 

Be s 

ai 

9 


; ITEM? 


; ITEMY 


; ITEMS 


; ITEM 





NNDEC= 11 -D2RIH-A RPO4/S/& OSKLS CONTROLLER TST-PT 2 
OZRIHA. ITM ERROR POINTER TABLE 


DT32 
DF 32 


EMe 
DH3! 


Drie 


MACY11 27(655) 


ERROR ON DATA COMMAND 





30-MAR-76 20:59 PACE 11 SEQ 0057 
16000 Da spate 

OH & 8 

CONTENTS. OF 


;SERRPC .PCJSR, STSTNM, ERWORD, SGDDAT , SBDDAT,CS1,051,ER1 
;0,0,0,1,0,0,0,0,0, ’ 





PC 
{TEST NO 
NO. 


; WORD 
600 me 

NTS. OF RHCS1 
CONTENTS OF RHDS1 
CONTENTS OF RHERI 


TR ODO OE »ERWORD, SGDDAT , SBDDAT,CS1,0S1,ER1 





i SERRRC STSTNM, ERWORD, SGDDAT, SBDDAT, CS!,DS1,ER1 
0,0,1,0,0,9,0.0, 


“<< ° 
} 


;ERROR ON WRITE HEADER AND DATA 


PC 
;PC OF JSR 


2) 
ce 


ere ¢| PCISR, TSN, ERMORD, SGDOAT, SBODAT, C51 .0S1, ER! 










MNDEC-11-DZRJH-A,RPO4’S/’6 DSKLS CONTROLLER TST-PT 2 
ZRJHA. ITM ERROR POIN 


445 


SEAPRPOOARSESERE 
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sERROR ON WRITE HEADER AND DATA 
: TEST NO 


;BAD DATA ) 
$ REEIEC, STSTIOH, ERMORD, SCDDAT , SECONT 4/ 


 SERRPC, STSTNM, ERWORD, SGDDAT, SBODAT 
:0,0,1,0,0, 


+ begeamas OR DRIVE STATUS 


;WRONG DATA FROM SILO 


Le law | oe | 
aS 


; Pee hl FAILED 
















































iS TSTNM, SBCADR,CS1,CS2,0S1,ER1 
0,0,0,0,0,0 















His nin yan 





Fh eee »REGADR, SGODAT , SBDDAT 


CONTENTS 0 OF” FAILING REG. 





RNOEC 11 “D2RIH-A, RPOI/S- DSKLS CONTROLLER TST-PT 2 


Bol 2et 


;ITEMIS 
EMIS 


DHIS 
Dis 


; ITEMIE 


GEueeoRes 


; ITEM21 


unui 


9-0 
WwrueO 


gH 


“ MACYLL 270655) 
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tEONTENTS OF RHOS! 
; CONTENTS OF RHER 1 
ise OD. NCCE "SBOOAT, CS$1,CS2,0S1,ER1 


i SP CHE LEO REG. NON EXISTANT SO ABORT 


:PC 
ADDR. OF REG 
sSERRPC, , TEMP 1 


;WAIT LOOP FAILED 
SWAT PC 

}81T WANTED 

PREG. CONT. 


:SERRPC, STMP3, STMP1, STMPO, SBODAT 
:0,0,0,0 


;WRITE CHECK FAILING 


STSTNM, SBA,0B,WC,CS1,CS2 


SERRPC, ST 0,0, 


;REGISTER FAILING 
ia 


pa, ERI, ‘eRe, ER3,AS,0S1 





ERROR POINTE 
001488 onesel . gil FAILING 


Sie ie 


C, TSTNM, CS1,AS,DS1 
ta. 0,0 ero8 8 


NNDEC-11-DZRJH-A, RPOY/S/“6 DSKLS CONTROLLER TST-PT 2 MACY11 27(655) 30-MAR-76 20:59 PAGE 14 
DZRJHA. ITM R TABLE 


Ob = Pope 
OO IMU 5 
~ 


;MISSMATCH IN DRIVE PRE 


takes reece 


ON 

; DRIVE ON OTHER PORT itta NOT GIVE NED 
THERE WILL BE A MISSMATCH 
“MEANS NOT PRESENT 


;SERRPC TSTNNS, SGDDAT, SBCDAT 
: ,0,0,0 


SENT 
Se-NED(BIT#i2) 
AGREE 


 SERRPC, TSTNNS, SGDDAT, SBDDAT 
:0,0,0,0 


GISTER AT THE 
4 SECTOR IS IN 


“$E00AT, STMP1,STMP2, STMP3 


ry 
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OZRJHA. ITM ERROR POINTER TABLE 


; ITEM 25 
003237 EM2eS ;LOOK AHEAD REGISTER IS 
; IN ERROR 


007205 


salsa 


GOOD 
; SECTOR NO 
pa. CLOCK 
TOR , SBODAT , STMP1, STMP2, STMPS 


{CONTROLLER OR DRIVE STATUS 


uw) 
an 


;PC OF JSR 

;FAILING REGISTER ADDRESS 

;CONTENTS OF RHCS! 
ONTENTS OF RHCS2 


CONTENTS OF RHDS1 
;CONTENTS OF RHERI 


; SERRPC, PCJSR, SBDADR, CS1,CS2,DS1,ER1 
:0,0,0,0,0,0,- 


tS tnd at 


; ITEM27 = 
;ERROR IN READING OR WRITING HARDWARE REGISTER 


; TEST NUMBER 
;FAILING REGISTER 
; DATA 
;RECEIVED DATA 


; SERRPC, PCJSR, TSTNM, REGADR, SGDDAT , SBDDAT 
:0,0,0,0,0,0 ° 


Be uRReones 


en CYLINDER DOES NOT REFLECT DESIRED CYLINDER REG. 


Riis 


PKC 
se 
WOYOUN£W--O 


tet PCJSR,REGADR, SGDDAT , SBODAT 
:0,0,0,0,0 


wot 
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DZRJHA. ITM ERROR POINTER TABLE 


; ITEM 
see EM31 ;ECC GENERATED IS INCORRECT 
EVERY WORD IN THIS SECTOR IS GIVEN IN “DATA USED” 


DH34 


i eey NUMBER 
;GO0D ECCI 
; GOOD 
;WRITTEN ECCI 
eR 


sWRETT 
;DATA 


;SERRPC, TSTNM, GECC1, GECC2, WECC1 , WEEC2, DISK 
;0,0,0,0,0,0,0 


;0N READ COMMAND AFTE ND ECC HAVE BEEN READ 
sECC y CREE OR RHER1 I 

ONLY LOWER 11 BITS OF PATTERN REGISTER 

THIS SHUOLD MATCH LOWER 11 BITS OF ECC1 | 


‘TEST NUMBER 

'G00D ECCI 

'G00D ECC2 

{PATTERN REGISTER 

RHERI 

; SERRPC, TSTNM, GECC1,GECC2, EC2,ER1 


sHIGH COUNT BIT NOT HIGH AFTER 38859 CLOCKS 
pC OF JSR 
>TEST NUMBER 
:RHMR aor 
sos TION REGISTER 
012436 ;SERRPC,PCJSR, TSTNM,MR,EC1,EC2 
012717. ;0,0,0,0,0,0 
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DZRJHA. ITM ERROR POINTER TABLE 


676 O01SS6 004105 EM34 ZERO DETECT BIT NOT HIGH WHEN T 
Sa - : pe CC REGISTER HAS ITS 21 BITS 
‘ERROR PRINTOUT _W TINUE TILL 
Baa SEROTEC BIT TS HGH 
681 OO1S60 011233 DH36 * PC 
682 , sPC OF JSR 
683 TEST NUMBER 
684 ;RHMR 
685. -?POSITION REG. 
8 PATTERN REGISTER 
688 001562 012436 0736 ; SERRPC, PCJSR, TSTNM,MR,EC1,EC2 
630 001564 012717 OF 36 | :0,0,0,0,0,0 
692 og 
693 
694 ; ITEM3S 
695 OO01S66 oD4200 EM3S sPOSITION REGISTER OR 11 BITS OF 
696 ‘PATTERN REGISTER INCORRECT 
697 ‘LOWER 11 BITS OF PATTERN REGISTER 
698 ‘SHOULD MATCH LOWER 11 BITS OF GOOD ECC1 
£99 DATA ENVELOPE AND N-CODE ZEROS ARE IN DECIMAL 
701 001570 011371 . DH37 :PC 
702 : TEST NUMBER 
703 ECC POSITION 
704 *GOOD POSITION 
705 GOOD ECC! ° 
706 GOOD _ECC2 
707 :ECC PATTE 
708 DATA ENVELOPE 
ay 001572 o124s4 0137 ; SERRPC, TSTNM,EC1, POSITI, GECC1, GECC2, EC2, DATENV, ZCODE 
z13 001574 012725 OF 37 :0,0,0,0,0,0,0,0,0 
715 
716 
717 ; ITEM36 
718 001576 004477 EM36 ON A READ COMMAND WITH NON CORRECTABLE 
719 ERROR INSERTED DCK AND ECH SHOULD BE SET 
720 OO01600 011036 DH3S iPC 
721 . TEST NUMBER 
722 : GOOD ECCI 
723 . ; CCe 
724 . ‘PATTERN REGISTER 
725 ‘POSITION REGISTER 
726 *RHERL 


728 001602 O12e414 DT35 ; SERRPC, TSTNM, GECC1, GECC2, EC2,EC1, ER 


ee Katte 
OZRIHA. ITM 


730 001604 012707 


74S 


anne ss se 


“J 
uw 
wo 


761 


ae 


ae ae” 


731 
230 . 


001606 


001610 


910051 


012304 
012647 


004753 


011610 


012500 
012736 


; ITEM37 


ZRJH-A,RPO4/S/& DSKLS CONTROLLER TST-PT 2 
ERROR POINTER TABLE 


OF 3S 


EM37 


DH31 


DT31 
DF31 


; ITEMYO 
0 


; ITEMY1 


0 
DT31 
DF31 


EM4O 


DHYO 


DT4O 


DF4O 
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;0,0,0,0,0,0,0 


;ERROR ON DATA COMMAND 
;WITH Al& Al7 USED 


SCONTENTS OF RHCS1 
SCONTENTS OF RHDSI- 
SCONTENTS OF RHERI 


; SERRPC, STSTNM, ERWORD, SGDDAT , SBDDAT,CS1,0S1,ER1 
:0,0,1,0,0,0,0,0, 


‘ 
: SERRPC STSTNM, ERWORD, SGDDAT, SBDDAT,CS1,0S1,ER1 
:0,0,1,0,0,0,0,0, 


; THERE WAS A READ/WRITE HEADER & DATA 
;ERROR DURING ’OTE’ TEST SETUP - THE 
sak! IS ABORTED AT THAT POINT 


TEST NO 
*FAILING REGISTER ADDRESS 
‘CONTENTS OF RHCS1 
:CONTENTS OF RHCS2 
:CONTENTS OF RHDS! 
:CONTENTS OF RHERI 
i SERRPC,STSTNM, SEOADR, CS1,,CS2, DS1, ER! 


SEQ 0064 





i 
ate 


4 





“J-4- 





og 


esto isisisee ttre erie tater en 


S Bais 





wmoOwownMmnmnDmmMww 
2 0 0 0 = 0 
WWD ~I3PU £C UvrTUe-O 





SERRE 





See 
Sl eel Sed 


mo 


8 
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; ITEM 4 


2 
Biss 
TY 
OF4 


eng 
DHY 
THe 
42 

s ITEM 44 
EMY4 
DHY4 
DT44 

ITEM 45 
Sante 


EM47 


; ITEM 51 
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;ERROR PC, TEST NUMBER, REGISTER ADDRESS. 
;ERROR PC, TEST NUMBER, REGISTER ADDRESS. 


ERROR PC, TEST NUMBER, REGISTER ADDRESS CORRECT, ACTUAL. 


;ERROR PC, TEST NUMBER, REGISTER HDORESS CORRECT, ACTUAL. 


sERROR PC, TEST NUMBER, REGISTER ADDRESS 
;ERROR PC, TEST NUMBER, REGISTER ADDRESS. 
REGISTER ADDRESS 


;ERROR PC, TEST NUMBER, 


;ERROR PO, TEST NUMSER, REGISTER ADORESS : 








837 


Le 
Ww 


pst RE REP RRR E Ae Shoe dal saa bala k Pee E € 





cm RPO4/S’6 DOSKLS CONTROLLER TST-PT 2 


PESBORISERE 3 
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ERROR POINTER TABLE 






; ITEM S2 
0017. 1 MSe 
et eaR Btaass Bund 
001742 O147O4 OT4Y 
001744 O14735 OF 44 














001746 013364 EMS3 
001 914473 DH44 
001758 014 T44 ERROR PC, TEST NUMBER, REGISTER ADDRESS CORRECT, ACTUAL. 
001 O14? FY | : 
ITEM 54 
001756 013424 EMS4 
001760 O1 DHS4 
001762 O14 OTSY ERROR PC; TEST NUMBER. 
001764 1474, uy 
¥ | ITEM SS 
001766 013463 EMSS . : 
901770 O14473 DH44 : 
001772 914704 DT44 ERROR PC. TEST NUMBER, REGISTER ACORESS CORRECT, ACTUAL. 
OO1774 + O1473¢ OF44 
a ; ITEM S6 
1 013476 EMSE 
eee Brug 
14704 T44 ERROR PC, TEST NUMBER, REGISTER ADDRESS CORRECT, ACTUAL. 
002004 014735 uy = 
: ITEM 57 4) 
13513 ENS? : om 
002010 O14473 4 | 
602012 014704 OTY4 =; ERROR PC, TEST NUMBER, REGISTER ADDRESS CORRECT, ACTUAL. 
002014 914735 OF 44 | 
ITEM 60 
002016 o13S4e EME | 
902020 014473 DH 
002022 014704 THY  ; ERROR PC, TEST NUMBER, REGISTER ADDRESS CORRECT, ACTUAL. 
002024 014735 DF44 
ITEM 61 
1 Mb 1 
a a5 BS8 ser 3 et 
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> 





02032 91470N [¥4 ERROR PC, TEST NUMBER, REGISTER AOORESS CORRECT, ACTUAL. 
SITEN 62 
01370! EME2 | 
Sa) BOseNe | OLa4e3 a | 
892 002042 014704 OT44 —- ; ERROR PC, TEST NUMBER, REGISTER ADDRESS CORRECT, ACTUAL. 
893 002044 014735 OF4Y 
Sge s ITEM 63 
cx poems ols ere 
899 14704 OT44 ERROR PC, TEST NUMBER, REGISTER ADDRESS CORRECT, ACTUAL. 
800 14735 OFYY . 
30 
ae ; ITEM 64 
S04 0 EMGY 
S05 D aes OH44 
3 014704 OT44 ERROR PC, TEST NUMBER, REGISTER ADDRESS CORRECT, ACTUAL. 
00e06% 014735 DFY4 
aos s ITEM 65 
310 
311 002066 O14079 EMES 
$12 002070 014472 / 
313 902072 O147D4 _-DTH4 —-S ERROR PC,TEST NUMBER, REGISTER ADDRESS CORRECT, ACTUAL. 
$18 Ooso4 014735 | OF 44 
ais SITEM 66 
318 O02076 o141S2 ENGE 
819 002100 O14473 OH44 3 
92g 002102 014704 OT44 . ;ERROR PC, TEST NUMBER, REGISTER ADDRESS CORRECT, ACTUAL. 
$21 002104 014735 a | 
923 SITEM 67. 
954 
925 002106 914224 
$56 002119 014605 ° 4 
Se? Ooelle 1472 TSH ERROR PC, TEST NUNBER. 
Seg Odell4 Oiuzie 4 
930 SITEM 70 
93) 
$32 02116 14311 
933 002120 014605 4 ‘ 
$4 Ouelee 914720 Dis sERROR PC, TEST NUMBER. 
1b4 014742 y 
$36 
937 ITEM 71 
932 





——_—— —_. _—_-_--ae uae emt so ee A, atl tet. alt. est, tt, i. Ue it. ctl, cit. A; i. et. iii. cits: ci: ciltt. t. t . . tt ft Ct tTL  t Clt t tt t L EL 
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/RH11 REGISTER FAILED TO RESPOND TO A “TST” COMMAND. 


/RH11 ILLEGAL REGISTER RESPONSE TEST/ 


9,0,9,1,0,0,0,9,0 | 
0,0,0,0,0,0,0,0,0 


in 
in 
ve) 
i 
ca ¥ 
-_ 
_ 
2 


0,0,0,0,0,0,0 
0,0,0,0,0,0,0,9 
0,0,0,0,0,0 
0,0,0,0,0,6 
0,.0,1,0,0,0,0,0 
0,0,0,1,0,0,0,0 
0,0,0,0,0,0,0 
0,0,0,0,0,0,0,9 
0,0,0,0,0,0 
0,0,0,0,0,0,0 


.BYTE 
BYTE 
BYTE 
BYTE 

EVEN 
ASCIZ 
ASCIZ 


.BYTE 
BYTE 
.BYTE 
BYTE 


BYTE 
.BYTE 
BYTE 
BYTE 


DFe4: 
OF 26 
DFe7 
DF30 
OF31 
OF 32 
DF 33: 
OF 34 
OF 35 
OF 36 
DF 37 
DF4O 
EM4e2 


8 88 88 8888 88 88888 88 88 8888888 


CONTROLLER TST-PT 2° 


ABLE 


020061 EMY43: 


dsces! Blas 


88 88 8888888 ssssssessss ssssssssss es r= ric 
: seueeez Sea8a 
Sssssssssssss sssssssssssssssssssssss < Soe 


2eueee 


HECEHRRRERERE RUROHEERERRERREU CEOS | RERONRRSS 


Oh hd ad ah Og Od 4 hw Ed he hd a Oh a ed ad dt ee tn am iam iam bam iam ee ame ate) 
OOOO 0000000 BOOOKQOWOOOOO2D00000000000 Q0o0d000000 


PREERRRERERRERBRRRE ROR PERER CECE RE caisamine temaacieamataas 


pli airy rd ri Br pda ia ae Bi ry} rt rir rr pp paps pe pe fe fpr pew pe te Fe fff 


OmNTER T 


HRARROR P 


“eR 





NNDEC- 
DZRJHA 
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JO7 


MACY11 27(65S) 


RPO4’S’6 DSKLS CONTROLLER TST-PT 2 


RROR POINTER TABLE 


* 


. 


NNDEC-11-O0ZRJH 


FLTINS 











/RH11 INTERRUPT FAILED TO OCCUR/ 


.ASCIZ /MOVE BYTE TO WORD COUNT TEST/ 
.ASCIZ /BUSS ADDRESS REGISTER DATA TEST’ 
.ASCIZ /BUSS ADDRESS REGISTER MOVE SYTE/ 


-ASCIZ /REGISTER ADDRESS SELECT TEST/ 
-ASCIZ /NON EXISTANT DRIVE (NED) TEST/ 


-ASCIZ /BIS BYTE TO WORD COUNT/ 
-ASCIZ /BIC BYTE TO WORD COUNT/ 


-ASCIZ /AS REGISTER TEST’ 


-ASCIZ 


EmMSO 
EMS1 
EMSe: 
EmMS3 


1 
at 
ll 
124 
osusde EMYS: 
117 
040 
7S24 
104 
124 
OSel2e3 EM47: 
104 
440 
124 
000 
101 
111 
1 
123 
eSee 
105 
124 
aeieti 
11 
051505 
9 
Bet 3 
051511 
047515 
052131 
G30461 O4444O EMS4: 


nanne SoM! —wNe Seman Ba : 
GO shod eas feta Sat ae : Ba ass 


acd 000s “nee Ute “Tas “2h Ueates Ucles cat 
G SSH Hees Icy SAN RRIKE Fs MORAN ARRAY EOE 


oo eh i ey a oo) | HY ad oe eed hd et de oe oe oe hoe oo) | nam em hen eae nam) to 4 4 ot 
20000 8000 28000 280000 200000 2800 200000 200000 200 


SSSI SaERRRE Renee nauanuauenuauananannnnss 


G1) 9 19 0 09 3 3 3 3 3 3 6 3 i a i a i a Ga Ga 3 G3 Co GC 0G Oa OB GO 9 89.3 Go G09 Os co 03 03 GD 








30-MAR-76 20:59 PAGE 41 


MACY11 27(655) 
/PORT SELECT FAILED TO CLEAR/ 


-ASCIZ /RESET TEST/ 
-ASCIZ /MXF BIT TEST/ 


\ 
Qa 
tal 
e 
w 
al 
ty 
a 
e 
oO 
uJ 
— 
vy) 
w 
et 
“ 
z 
4 
ra 
ta 
—- 
Yo 
cml 
tt 
P 
e 
uJ 
<< 
— 
gs 
z= 
ot 
= 
oO 
uJ 
—) 
uJ 
w 
w 
ta 
So 
Qa 
he 
N 
Lond 
oO 
w 
=< 


-ASCIZ /DOES TRE GET SET BY UNIBUS PARITY ERROR/ 
-ASCIZ /NON EXISTANT DRIVE (NED) FAILED TO SET (TRE)/ 
-ASCIZ /NON EXISTANT MEMORY (NEM) FAILED TO SET (TRE)/ 


-ASCIZ /UNIBUS PARITY BIT TEST/ 


-ASCIZ 


EM6e: 
EM64 


EMS?: 
EM60 


020106 O44S02 ENSE: 
042524 OS2123 


Fagus 3 


—Iat od a ee a 


Hig i aeruneers eae 


fice cxtilnasta Selists Guavim’ seecnce 
o aE artist “a “Taseele Fanaa 
20 CAG PTE CARR SESE 


ad a nd ad md nd ef ow md a et tt to on am nam bam bam hem bam bam) 
OOO0000000 28000000 28000000 280000000 


Garba lupeaarereernsepennnenaoaz ee sresaases 


EG hh hd eg gh hg dd ed md dd ed eh Ht He 


Or iwn- 
ate 


020123 EMb1: 
051440 


SKLS CONTROLLER TST-PT 2 
020124 


JH-A, RPOW/S/ 
ERROR BORNTER TABLE 
1874 013454 O4744O 041503 051125 
052122 
o04150s 


ae 
014034 O04 
014042 046105 


FLTINS. 


NNDEC=1 





SEQ 0088 
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LO? 


MACY11 27(655) 


RPO4/S/6 DSKLS CONTROLLER TST-PT 2 


“A 
ERROR POINTER TABLE 


NNDEC-11-DZRJH 
FLTINS.ERR 


-ASCIZ /CONTROLLER CLEAR FAILED TO CLEAR COMMAND REGISTER/ 


er 


220828 


SS 


.ASCIZ /RESELECT FAILED TO CLEAR COMMAND REGISTER/ 


i EM6B: 


Cees 
teaged 


faerae 2 
Bo ile i 
eleseds & 
HBBT NS 


0425S 
O44S9 
aay 


si] 


-ASCIZ /INTERRUPT CAUSED BY RDY!IE BITS SET FAILED TO OCCUR/ 


eB od ed od ee ed ed 
2oOo000000 


-ASCIZ /IE FAILED TO CLEAR FOLLOWING AN INTERRUPT/ 


pon hem hem) 38 
Coen: aes Dien) 


enidka 


SHMEEOe Bob 


Q0000000 


RRO U RG OTE RE TELE RITE ARR RARERARRARRR Roe 


tI dA, DD DDI DR 


-ASCIZ /AS REGISTER WRITE TEST/ 


le3 051105 


OS344O O44See O4eSe4 


OS2040 


1 0 O4eSee EN71: 


051505 000124 


yy 


~ 

cu 

4 

w 

~ 

w 

_— 

w 

“ “ 
w 

4 on 

ts ow 

¥ a 

= @ 

— 

ts 

— 2 

& 

7 “ 

be N 

co mi 

oO oO 

7a fe 


020040 DHY4e: 


Ole 
O40 020040 020040 


14434 042514 040507 00651 


14442 
14443 


ef 


SEQ 0089 
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MO? 


MACY11 27(655) 


C-11-DZRJH-A, RPOW/S/ CONTROLLER TST-PT 2 
FL TINS-E ERROR BORN ER Face 


FLTINS.ERR 


ay 
3 2 : a 
- = 

= 8 = Bio 

Fed ts 4 o #8 

re 3 = 3 S85 

‘ = wee 

i 2 a 2 ae 

. eg 

“een es Bg E 

= N ~ N sen 

bet fod fae 288 

¥ + G uo st F 
z z EEE. 

Nem 2 BeERS 2 Mone eter 2 eae 
oY a tt pond z, wn 
ee Mesgus = fgets Bains 8 Fin 2% 282 
aa cenne & ae Bee 8 ue 
ee oa UES Maues ss. . -S sea 
Z zeogRozuouSooZS g¢ wguze 
POPES ze 
ez = g8ssse 


ipiprgesuueosiyovegeeseosess | SEER 


FF FTTITTIF IIT TIS STITT TI STITS fn Ian Rameau Eeaen ante} 
2OOWOOOWOOBOOOOOWOO80000000000 aqa0o0000 


PaSISPESSE OSS SO TSe Rene RUReERERRRRERRE 


Uh hh hh a Oh Hh Oh tt tt 





NO7. 


MACY11 27(655) 


SEQ 0090 
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& OSKLS CONTROLLER TST-PT 2 


“A, RPOW/S/ 
ERROR PORNTER TABLE 


NNDEC- 11-D2RJH 


FLTINS.ERR 


000 


DOF Ye: 
000 OF44: 
000 OFSY: 


0,0,0,0 


-BYTE 






Regard i aes AaB pean CHa 





wu 
a 





Sonata 









MNDEC=12-DDRIH-A.RPCY’S 6 DSKLS CONTROLLER TST-PT 2 MACY1L 27(655) 30-NAR-76 20:59 PAGE 4S 
DoRIHA DEF HARBUARE RESISTER G1? DEF 


INITIONS 
-SBTTL HARDWARE REGISTER BIT DEFINITIONS 


§ s ERARRELERSSSLSSSRASRASLARLERL AAA SS SRALEA SLA RL SFSAARLAELSS SEL AAS 


:RH11 REGISTERS 
jp RRRERERARAREERALEEERLELAA REL AR EERE SEAL SAAS SREERLA REESE EES RET ES 


; WORD T REGISTER (RHWC) 
;EACH BIT IS CALLED BY BIT NUMBER 


S REGISTER (RHBA) 
S CALLED SY BIT NUMBER 


uSiz 1 ;UNIT SELECT (BIT 80) 
uSe= 2 ‘UNIT SELECT (BIT 81) 

42 4 :UNIT SELECT (BIT 82) 

I= 10 *BUS ADDRESS INCREMENT INHISIT (SIT #3) 
PAT= cs ‘INVERT PARITY ON MASS BUS TO EVEN (BIT #4) 
fe Te Rout Moy Tory 
OR= 2 : Y (BIT 87) 
wPe= 900 SRAce BUS PARITY ERROR (BIT 48) 

“| 3 sMISSED TRANSFER ERROR (BIT #9) 

PGE= : ERROR (BIT #10) 
NEM= :NON EXISTANT MEMORY (BIT #11) 
NED= 49000 : NON EXISTANT OR ert #12) 

= :UNIBUS PARITY E (BIT #123) 
WcE= 40000 sWRITE CHECK ERROR (BIT #14) 
MLT= 1300000 ‘DATA LATE (BIT 1S) 


;DATA BUFFER REGISTER (RHOB) 
;EACH BIT IS CALLED BY BIT NUMBER 











EE eA ee ARE RESIRTER ame T na 2 MACY11 27(655) 30-MAR-76 20:59 PAGE-46 


e064 5 RRRER SRSA RREE REE E ES ERA ERAS RAE REE SRE RSAR EASE EERE ERE REE EEE EEE EES 


:RPOY REGISTERS 
3 s RRAAAAAAAS HALA SELALAASSSLALAAS SS LLAAA LAS RLLALSSRAASRERLSSELRALS 















;CONTROL AND STATUS 1 REGISTER. (#00) 


0000S! GO= 2 tid] 3G0 (BIT #0) 
000100 IE= 100 : INTERRUPT ENABLE (BIT #6) 
ROY= 200 BIT #7) 


nics Sh et ine WIE GH & 


PsEL= 2000 :POR Se ice AVRLLARE ‘gir 8 
E ins a {ett 813) 


TRE= 40000 ; TRANSFER PERT, fe 
Sc= 100000 ; SPECIAL CONDITION. let #15) 


;STATUS REGISTER (RHOSI) (#01) 


ce Bae 


BRSRRTEREB aS ious oeeeee 


c=] ;DRIVE F 5*/ (BIT #0) 
Pao: 3 au FORWARD SO"sseC, ‘CBIT e1) 
A DIGB= 3 DRIVE TO mee AVR BAND (BIT #2) 
anid OL64= 20 eect it THAN 64 (BIT #4) 
2030 000040 DEl= 4 : DIFFERENCE ; 1 (BIT #5) 
2091 000100 = 100 : VOLUME ae (BIT #6) 
2092 000200 ORY= 200 : DRIVE Y (BIT 87) 
2033 po0400 PRS 400 DRIVE PRE ( 1, #8) 
2095 Vieeed Lsts 100 sLAST SECTO pi ans ERRED (BIT #10) 
= . 
it ieee Hobs ipoo0 MED! ORAL IHE BHT 812) 
2098 020000 PIP= *POSITIONING OPERATION IN PROGRESS (BIT #13) 
2099 o40000 ERR= 40000 :COMPOSIT ERROR. (err #14) 
e100 109000 ATA= 100000 !ATTENTION ACTIVE (BIT #15)... 
sis 90000: fee — ore vee GAL TION (BIT #0) ( 
2104 po0002 ILR= 4 : Rest Tee (BIT #1) ~ * 
2105 000004 RMR = 4 REGIST FICATION REFUSED (BIT #2) 
2106 000010 - PAR= 10 :PARITY ERROR (BIT 83) 
2197 000020 FER= 20 *FORMAT ERROR (BIT #4) 
2108 000040 weF= 40 WRITE CLOCK FAIL (BIT #5) 
2109 000100 ECH= 100 SECC Fab ERROR (BIT 86) 
stit eae icRes 400 SE ODER he ERROR (BIT ca) 
4 . 
gig 001 ADE= 100 ROORE SS OVERFLOW (BIT 89) 
tte 004000 iPes GboD eee OCR ERROR (ETT Git) ee 
2115 019909 OTe= 9990 DR HORNE ERROR’ CBIT ni2) 
elle ar OPT= : TION INCOMPLETE (BIT 813) 
2117 049000 UNS= 40000 !DRIVE UNSAFE (BIT #14) 
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sDATA CHECK ERROR (BIT 15) 


DOS - 


MACY11 27(65S) 


1u0000 


;MAINTAINABILITY REGISTER (RHMR) (#03) 


REGISTER BIT DEFINITIONS 
DCK= 


RPO4Y/S/6 DSKLS CONTROLLER TST-PT 2 . 


100000 


NNDEC-11-DZRJH-A, 


OZRIHA. DEF 


pe fattest 


afer fFSNe 


of CD ORES OM OH ODOR ER 


as 





;ATTENTION SUMMARY PSEUDO-REGISTER (RHAS) (#04) 


FPR Rm 
RaewVzVes 
el aed ook aol ont ond at 


ee er er er es 
OnUMTiNwr 


slasisidr 
OOOOUGE 


BASS8O8S 


mere BREE 


eeerese 


RU UAU UBM MMM Meee 


D_SECTOR’TRACK ADDRESS REGISTER (RHDST) (#1) 


;DESI 
ARGH Bt IS CALLED BY BIT NUMBER 


unm 











> 


;EACH BIT IS CALLED B 


;DRIVE TYPE REGISTER 





BeVVZ2a00 


id 


;LOOK-AHEAD REGISTER (RHLA) (807) 


Se 


FP PS PS RAMAN Bows 


pn han han ban ban bee bon bon bag ban ban ban ban ban ban ban ban ban ban ban, bod bon, bon ban ban, }om- bon. fon. bag ban bon bon ban bom, bom bon bom fon bon bon bon be bos bom, bom, an, bon bn boy bon, bos bon, bop oe 
MUICUCUCUCE NITUDE NUNC CUCU NCU OU NU CUCU CUCU CUCU CU CUCU CUCU CU CUCU CUCU CUCU CUCU CuCucucucurucuCcucucucucucucucuTu 


SS 
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NNDEC=11-DZRJH-A,RPO4/S/6 DSKLS CONTROLLER TST-PT 2 
OZRIHA. DEF HARDWARE REGISTER BIT DEFINITIONS 







BR Slee Sean San FIR 2 ST 
¢ = 
e174 004000 TRKL= 4000 Tae FIELD 1 "att #11) 
= ae 
sift 838088 Tig: 38088 TR k FEL LB § (BIT $8} 
217 040000 TRK10= 40000 : TRAC 0 4 (BIT #14) 
17 100000 TRK20= 190000 TRACK EIELS S (BIT #15) 
518 ERROR REGISTER #2 (RHER2) (#10) 

182 000001 wus 1 sWRITE CURRENT UNSAFE (SIT 80) 
2183 00002 CSF= 2 CURRENT SINK FAIL ty #1) 
184 dooo¥ wus 4 WR T (BIT #2) 

St ieee nee: oD i tate (it ey 

sie 900040 = 40 RANG IT TONS DETECTOR FAILURE (BIT #5) 
8 ae: eeu aE 

ie = i ITE Per UNGaeE (Ort), 

Ate oas000 = in0 >NO ie RT POH cars #10) 

2193 IxE= 4000 s INDEX ERROR (BIT #11) 

194 019000 = 10000 (BIT. #12) 

195 PLU= 00 0 URSA (BIT # 
e1% l acu= 100000 if E (BI hei 
e138 OFFSET REGISTER (RHOF) (#11) 

2200 000001 OF25= 1 OFFSET 25 MICRO INCHES (SIT #0) 

2201 ooo002 = 2 OFFSET SO MICRO INCHES (BIT #1) 

2202 900004 OF100= 4 ‘OFFSET 100 MICRO INCHES (BIT #2) 

2205 000010 OF200= 10 : OFFSET eo MICRO INCHES (BIT #3) 
900020 OFHO0= 20 : OFF MICRO INCHES (BIT #4) 

2205 000049 = 40 ;OFFSET 800 MICRO INCHES (BIT #5) 

2297 900200 OFREV= 200 sOFFSET NEGATIVE (REVERSE) (BIT #7) 

Re A oe SO SEAR neler? hr au 

e310 te Er t5o 1 FOR BIT < BION CQ0e 

2212 

2213 

2214 

eels 

2216 : DESIRED CYL LINOER RODRESS (RHCAD (ala) 

2217 tEACH BIT IS CALLED BY BIT NUMBE 

2218 

2219 

2220 

PEPSI 

eeee 

2223 CURRENT CYLINDER ADDRESS (RHCC) (#13) 

gees :EACH BIT IS CALLED BY BIT NUMBER 





——— - - - = ° - 





MNDEC=11-DZ2RJH-A,RPO4/S”6 DSKLS CONTROLLER TST- 
OZRIHA. DEF HARDWARE INITI 





099001 
900010 


Bee 
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REGISTER BIT DEFIN 


;SERIAL NUMBER REGISTER (RHSN) (#14) 
:EACH IS CALLED BY BIT NUMBER 


;ERROR REGISTER #03 (RHER3) (#15) 


vrs 2 VELOCITY UNSAFE (BIT 81). 


= 10 fut UNSAFE EXCEPT READSURITE a #3) 
= 20 SK ne 19°18 TION ERROR (BIT 84 

ACL= 40 LOW ( 

DCL= 100 0s hs (Bit 

SkI=. 40000 BEEN ct NCORPLETE (BIT #14) 

OCYL= 100000 CYL INDE: IT #15) 


;ECC POSITION REGISTER (RHEC1) totes 
3EACH BIT IS CALLED BY BIT NUMBER 


;ECC PATTERN REGISTER (RHEC2) (17) 
EACH BIT IS CALLED BY BIT NUMBER 





NNDEC-11-DZRJH-A,RPOY/S/“6 DSK 
JHA. DEF HARDWARE REGI 


000254 





Ste 





CONTR 


R BIT 


OLLER TST-PT 2 = MACYLI 27(655) 30-MAR-76 20:59 PAGE SO » 


INITIONS 
-SBTTL REGISTER ADDRESSES 


;RPO4/S/6 VECTOR ADDRESS 
RPVEC: 2S4 ;RPO4/S/6 VECTOR ADDRESS 


;RPO4/S/6 DISK 170 REGISTERS Locate IN THE RH11 CONTROLLER 
NOTE: THE CONTENTS OF THESE LOCATIONS WILL BE DIFFRENT 


: IF THE “CHANGE BASE ADDRESS” ROUTINE IS USED. 

: THIS ROUTINE STARTS AT LOCATION TAGGED “BASECH™ 

RHDB: 176722 sere ater SEE NOTE oe 

RHWC: 176702 gt 

RHBA: 176704 a eGORESs ABOVE 

RHCSe: 176710 TROL TUS 2 SEE NOTE ABOVE 
35/0 0 pix 70 REGISTERS L IN THE DEVI ConrTROL LOGIC (DCL) 
;NOTE: ONTENTS GF THESE pea tote ta tL usen FFRENT 

; If THe “CHANGE BASE ADDRESS ROUTI 

; THIS ROUTINE STARTS AT LOCATION - thee > -BASECH™ 

RHCS1: 176700 ;CONTROL AND STATUS 1 SEE NOTE ABOVE 
oer! 176714 sERROR #1 oftt NO 

RHOST: 176 pA OR/ SS SEE NOTE ABOVE 


RCA; 1eo34 ie EERE SE, NOTE PONE ROORESS SEE NOTE ABOVE 
RHAS: i7eri sRROR TaN SUMNERY. SEE NOTE ABOVE 


sMATNTRINABILITY SEE NOTE ABOVE 


a ee Be ha 


Rueri:  topoaa ON SEE NOTE ABOVE” 

RHEC?: 176746 ie ‘eettis ie NOTE ABOVE 

RHLA: 176720 *LOOK-AHEAD SEE NOTE 

RHCC: 176736 :CURRENT CYLINDER ADDRESS SEE NOTE ABOVE 
ADDITIONAL REGISTERS LOCATED IN THE RH70 CONTROLLER 

RHCS3: 176752 CONTROL AND STATUS REGISTER #3 


RHBAE: 176750 BUS ADDRESS EXTENSION REGISTER 











MNDEC-11-D2RJH-A 45/6 DSKLS CONTROLLER TST-PT 2 MACY11 27(65S) 30-MAR-76 20:59 PAGE SI 
DOR TMA SBE Reet eTER AD 


DRESSES 
a Ue Ae op RE 
Y BE PRIN FED a =a eM BE FILLED 
POR THE TIME JUST AFTER THE “ 
;DATA ite 
: ORD COUN 


;BUS_ADDRESS 
;CONTROL AND STATUS 2 


o000 
fH ba pe Re 


NSPEREVURES ESR? | SOY 


ERROR aL STATUS 1 
;DESIRED SECTOR/TRACK ADDRESS 
ERROR #2 


; OFFSET 
sDESIRED CYLINDER ADDRESS 


DRIVE orAtUS 

eta ah 

ZECC POST TION 

sECC PATTERN 

ze A CYLINDER ADDRESS 


0 
0 
0 
0 
0 
0 
0 
0 
ft) 
0 
0 
0 
CG 


bb = be bb P= bs Pb Fh Pe fs ee 
MOODKKOOOBOOO00000 
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NNDEC-11-DZRJH-A,RPOW/S/6 DSKLS CONTROLLER TST-PT 2 
DZRIHA.DEF REGISTER ADDRESSES 


;FLAGS AND INTERNAL PROGRAM CONTROL WORDS 


O1Siee 000000 SELECT: .WORD ue ONES INDICATE UNIT TO BE SELECTED 
015124 9300000 -  UNITSL: .WORD ;UNIT NO. SELECTED 


015126 000000 ERFLGS: 0 ;ERROR FLAG 


015130 900000 SAVDT: 0 ;SAVE DRIVE TYPE REGISTER 
sper ted Be SON in DRIVE CLEAR TEST 


TES 
015i32 000000 SAVSN: 0 see SERTAL REGISTER 
a ; FOR COMPARISON IN DRIVE CLEAR TEST 
AND RH INIT TES 


015134 000000 PCJSR: 0 ;SAVE PC OF JSR WHICH GAVE THE ERROR 


015136 000000 ATTENT: O ;ATTENTION BIT FOR PRESENT UNIT 
015140 o00000 TOTALAT: 0 TOTAL ATTENTION BITS 


015142 oo000c TMPILL: 0 ; TEMPORARY ILLEGAL FUNCTION 


015144 000000 TSECC: 0 ;FLAG TO SAY IF ECC TEST OR_NOT 
“s N =177777 IT IS AN ECC TEST 
‘WHEN =Ort IS NOT AN ECC TEST 


O1Si4%6 000000 TESDTE: 0 ;FLAG v0 SAY_IF ORtye UHING ta OR NOT 
;WHEN = 177777 IT IS A OTE T 
:WHEN = 4 IT IS NOT & OTE “est 


015150 900000 TAGOTE: O Toeny TAG USED IN DRIVE TIMING 
SERROR TEST 


Toes mS Eh RET Ree 
015116 000000 NOUNIT: .WORD 0 USD Tok rey Pere in IT UNDER TEST 
01S120 000000 NUNIT: -WORD O D TO DETERMIN IF THERE ARE MORE 

0 

0 
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DZRIHA. DEF REGISTER ADDRESSES : 


;FUNCTION EQUATES 


;TABLE OF COMMAND FUNCTIONS FOR RHCS1 
;THEN “GO” BIT HAS TO BE SET 


Be 


ttt 


eile BY) 


iRELE TOUAL-PORT OPERATION) 


SWRITE CHECK DATA 
;WRI HEADER AND DATA 


jWRI 

reer AND DATA (FORMAT) 
;READ HEADER AND DATA 
; SEEK COMMAND 


Poo bes bt he Ps Bs b= hm bp pnw 
o 
a 


2nd 


; 
OFFSET COMMAND 
*RETURNTO CENTERLINE 
PACK ACKNOWLEDGE 


;READ IN 
+ OSRPUTED ILLEGAL FUNCTION 


seageaeeeeeeeeees 


bb Bb b= bh b= he hs ho Pee hs Po em pee 


tiatiat 
TONG es NOWoVoSNe VO 


£NO 
5 
8 


e384 
B 
2389 
a 
2384 
2395 
ES 
2398 
ea 
e401 
e402 
sate 
2406 
2407 
2408 


B 


;DATA SUFFER FOR READ WRITE 


ROM: .BLKW 274. ;WRITE FROM THIS BUFFER 
: .BLKW 274. READ INTO THIS BUFFER 


; TEST NUMBER 
sIF ZERO WILL TYPE HEADER 
;IF ONES WILL NOT TYPE HEADER 


;FLAG = 1 FOR RH70 CONTROLLER 
;FLAG = O FOR RH11 


bs bh bs ps bf he he ee pe 


VEPPPPPYREREPE 
WOOnNWUI£CUIM-—O 


; TABLE FOR ATTENTION SITS 
ATTENTION TABLE 


002 004 ATABLE: .BYTE 1,2,4,10,20,40, 100,200 
st 040 
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.SBTTL 
. sett ###PROGRAM SETUP 8&8 SETUP TESTS##* 


177777 015122 BEGINe: MOV rt ees ;SELECT UNIT 
015122 BEGIN: fa SHSELECT ;D0 NOT SELECT UNIT 
;NORMAL RUN 


START: 


-SBTTL_ INITIALIZE THE COMMON TAGS 
_ 3sCLEAR THE COMMON TAGS (SCMTAG) AREA 
MOV 1 3 tated ;;FIRST LOCATION TO BE CLEARED 
8 


ae 


; 
a 


;;CLEAR MEMORY LOCATION 


: LOOP BACK IF.NO 
MOV #STACK SETUP THE STACK POINTER 
ss INITIALIZE A FEW VECTORS 


ag ie dhe 3310T aa FOR SCOPE ROUTINE 


toTvecee ;: LEVEL 

SIEHiVE EAT vecTon FOR ERROR ROUTINE. - 

*: - TRAP VECTOR FOR TRAP CALLS 

# C+e; LEVEL 7 : 

#SPWRON, J8PWRVEC ; POWER FAILURE VECTOR 

#340, JUPWRVEC+2 ;:CEVEL 7 

STINES >; INITIALIZE NUMBER OF ITERATIONS 
SESCAPE *:CLEAR THE ESCAPE ON ERROR ADDRESS 
#1,SERMAX . -~ ;;ALLOW ST 

#./SLPADR ssIN TIAL THE LOOP ADDRESS FOR SCOPE 


wartubse Se } ERROR LOOP ADDRESS 

SWITCH REGISTER. IF NOT FOUND OR IT IS 

-1", SETUP FOR A SOFTWARE SWITCH REGISTER. 
C,-(SP) ;;SAVE E VEC 


a 

#64$.JHERRVEC 3;S5ET UP ERROR VECTOR i, 

BOSSA I TSPLAY LIBROCA HRROWAE DISHLAY PECIeTER 

#-1, 2SWR >: TRY Fo REP EREHIC HARDWARE SiR 

66S i 3BRANCH IF NO TIMEOUT TRAP OCCURRED 
HARDWARE SWR IS NO 


3 T=-! 
65$ *:BRANCH IF NO TIMEOUT 
#65, (SP) ::SET UP FOR TRAP RETURN 


#SWREG, SWR ;;POINT TO SOFTWARE SWR 
#OISPREG, DISPLAY 
(SP)+,a#ERRVEC ;;RESTORE ERROR VECTOR 


R6 
SWR,R& ;;DONE? 


BR 
a8 


dad g 


“ 
S$ 


rurururururururo —s 


RoE & 


2 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


a ieadiaaded ass 


: 
a2 dag 


pbs bo Fp 


fe 


ai 
ov 


gia Que 


#6, PS ;SET PROCESSOR STATUS TO 0. 
WRPVECT,ORPVEC ;THIS IS FOR UNTIMELY DRIVE INTERRUPTS 
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{NITIALIZE THE COMMON TAGS 


DZRJHA. SET 


SR NRO ON a a as 


ee he ee 
WONWUIC WMO 


oR 
a 


noe 


095737 
001001 
00040e 
000137 


104400 
000435 


104400 
000417 


104400 
000433 


104400 
000423 


104400 
000436 


104400 
000431 


104400 
000427 


104400 
000427 


104400 
000415 


104400 
000427 


012737 


060036 
017332 
020662 15: 
es: 
017646 
;;65S: 
64S: 
017746 
::67$: 
66S: 
020012 
;:69$: 
68S: 
020106 
::71S: 
70S: 
020202 
+735: 
22S: 
020304 
:;758: 
24s: 
020374 
33778: 
765: 
020460 
::79S: 
78S: 
020544 
;: 815: 
6ds: 
020604 . 
°°838: . 
825: 


177777 017332 SND1: 
.SBTTL 


JSR PC, JNSTKINT s INITIALIZE TTY KEYBOARD 

TST dar IRST IS THIS FIRST TIME ROUND ? 

BNE 1$ :DON’T TYPE HEADER IF NOT 
es :TYPE HE 

JMP a#SND1 

TYPE 65S ;; TYPE ASCIZ STRING 


BR 4$ ;;GET OVER THE ASCIZ 
-ASCIZ <¢15><12>?RPO4/S/6’ DISKLESS CONTROLLER TEST - PART II - DZRJH-A? 


TYPE 67$ ;;TYPE ASCIZ STRING 
BR 66S ::GET OVER THE ASCIZ 
-ASCIZ <15><12>/REVISION’ DATE: 21-MAR-76/<15><12> 


TYPE 698 3; TYPE ASCIZ STRING 
BR bas ;;GET OVER THE ASCIZ 
-ASCIZ <15><12>/ALL DCL'S UNDER TEST MUST BE LOCKED ON CORRECT PORT/ 


TYPE 71S ;; TYPE ASCIZ STRING 
BR 0 *:GET OVER THE ASCIZ 
.ASCIZ <15><12>/IF CHANGES ARE REQUIRED ON PORT SWITCH, A CYCLE UP/ 


TYPE 738 ;; TYPE ASCIZ STRING 
BR 225 *:GET OVER THE ASCIZ 
-ASCIZ <15><12>/SEQUENCE IS REQUIRED FOR STROBING THE PORT SELECT FLOP/<15><12> 


TYPE 75$ ;; TYPE ASCIZ STRING 

BR et ;,GET OVER THE 12 

-ASCIZ <15><12>/ALL DCL'S NOT UNDER TEST MUST BE SWITCHED OFF/<1S><12> 

TYPE 77$ ;; TYPE AscIz TRING 
$ *?GET OVER ASCI 

.ASCIZ <«15><le> PETE TT TTT TTT ETESTTTETTTTTEST ETT TTT TTT TTT Ty] 

TYPE 798 ;; TYPE ASCIZ STRING 

BR 8 :GET OVER THE ASCIZ 

SASCIZ <15><12>/IF THIS’ tS NOT DONE, ERRORS WILL RESULT ON/ 

TYPE 81S ;; TYPE ASCIZ STRING 

BR 80$ *:GET OVER te ASCIZ 

SASCIZ <15><12)/°NED’ TESTS (T2l & T36)7 

TYPE 83$ ;;TYPE ASCIZ STRING 

BR 2 T 


ee R T AS 
3, (12> 23H BEEBE EEE / 


B 
N 
~ 
ee 


MOV #-1,d8F IRST ;NEXT TIME DO NOT GIVE HEADER 
GET VALUE FOR SOFTWARE SWITCH REGISTER 


NNDEC-11-D2RJH-A RPO4/S/6 DSKLS CONTROLLER TST-PT 2 MACY11 27(65S) 30-MAR-76 20:59 PAGE Sb SEQ 0102 
sah VALUE FOR SOFTWARE SWITCH REGISTER 


ooo04e TST aete WE RUNNING UNDER XXDP/ACT? 
eB Been Trves 
001140 000176 pa Soe 5 ce CH REG SELECTED? 


BNE ; BRANC 
gisHn Ess GET SOFT-SWR SETTINGS 
anos 000001 001134 poe: MOVB #1, SAUTOB ;;SET AUTO-MODE INDICATOR 


010000 160212 RH7OCK: Bi #SW12, JSWR aia p= SE i, USING RH70 
Oe nat Q 3$ SKIP_NEXT 

177777 017334 #-1, 3#RH70 SIF SWle = ast IS AN RH70 

01Si2e 3$: LECT 
ae FET 


e 18> «12> /SELECT si ete eran °/ 


START 
560, TO elit it wae STARTING FROM 200 


;ONLY KEEP LAST 3 BITS 
:SAVE UNIT TO BE TESTED 
SAVE UNIT TO BE TESTED 
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DZRJHA. GET VALUE FOR SOFTWARE SWITCH REGISTER 


2566 

2567 © REAR ASRARRARAERELAREAA SARA REARS LEAS RRA ARAAAEAAAAA AKA RARARAFAAEX 

e568 t RTEST 1 REFERENCE EACH REGISTER 
70 s% REFERENCE EACH REGISTER BY A MOVE INSTRUCTION 
72 ee Llalalah bh balatalalalahalalalalalalalalalalalelalalaltahilelalalelalalaleialaislslalelelalelelelaleleislalelslslalelel 

2573 O£1034 O00004 tSTi: SCOPE 

2574 021036 012737 000001 001212 V a ,STINES ' ITERATION 

ser ben 4 SOApOT 7 HOV NO duTSTNM UE ATEe TEST MG R 

5258 PsifeP 815539 Beisne prods0 NOV tr aaenivec! is Wee Ton Sp THe 
3 021064 O01 2 oo00004 MOV #25, JHERRVEC 

Seon PSitbs Bister Battie Noy tet io hea are a an 

2581 021076 012701 014750 MOV ADDR OF FIRST REG. 

2582 021102 013102 1S: MOV saa R Re Read DS HARDEARE RE 

2583 21104 DEC RO COUNT DOWN 

2584 021106 001 os BNE 1$ ;BRANCH IF 24 NOT DONE 

258 21119 000471 BR 35 BRANCH IF 24 DONE 

258 Oellie 012737 OO00006 OO0004 2s: MOV WERRVEC+2 aueravie’s “RESTORE TRAP CATCHER 

2587 Oelle6 Oe2beb CMP SP)+, (SP3+ 5C STACK 

2588 Oell22 016137 177776 001200 MOV RU, STMP1 ;STORE FAILING REG ROOR 

2589 021130 104015 ERROR 15 *REGISTER NON EXISTAN 

2590 Oell32 032777 O20000 160000 BIT #SU13, SUR : INHIBIT ERROR MES TOUT ? 

2591 021140 001053 BNE 4§ *BRANCH IF YES 

2592 O21142 104400 021150 TYPE 65S 3; TYPE ASCIZ STRING 

2593 021146 000431 BR 4g ‘GET OVER THE ASCIZ 

go34 alee ig85s: "ASCIZ <15)<12>/IF BASE ADDRESS IS TO BE CHANGED HALT PROGRAM / 

25% Oele3se 104400 021240 TYPE 67S ss TYPE ASCIZ STRING 

2597 021236 000411 BR 66S “GET OVER THE ASCIZ 

2598 +:67$: -ASCIZ <15><12>/AND RESTART AT 7 

2599 021262 66S: 

O21262 012746 051320 MOV #BASECH,-(SP)  ;GET READY TO TYPE STARTING ADDRESS 

2601 -OF “CHANGE OF BASE ADDRESS” ROUTINE 

_ po02 021266 104401 TYPOC 

2603 Oel2e70 000137 o44470 4S: JMP aeSEOP ;GO TO END OF PROGRAM ---------------- a 

see ef 021274 012737 061276 000030 33: MOV #SERROR, JHEMTVEC;RESTORE ERROR VECTOR 

2606 °SQ THAT REGISTERS ARE SAVED 

2607 021302 012737 900006 oD0004 MOV #ERRVEC+2, 2#ERRVEC ;RESTORE TRAP CATCHER 
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gga prs * REFERER 


4 


iilesT 2 RHCSE-CONTROL AND STATUS? 


pe PARTIALLY TESTS RHCS2 TO pres DETERMINATION 
OF THE NUMBE 


tt tb ab a 


WO “IW U1 -£ UITUS~ 


RRRK 


ROE fob =| GRE 


© FERFFFESSHSFSSSSSESRSSSERARERHSRASSSLALSLARLALAASSERASAALELLSSS 
a a1, STINES 
sel bet QaTSTNM  ;THIS SAVES TEST NUMBER 
;#CHECK TO SEE IF PROGRAM IS RUNNING WITH AN RH70 
38RH70 TEST FOR RH70 CON 


Lr) 
ae 
QO 


G4 Bs b+ BH be eo eH a he 


& 


foro fafofore 


<= 


EAA E REACH MORO 


SiTEST a BORTIAL TEST OF RHAS FOR UNIT NUMBERS PRESENT 
“OO, Ppa eagnamaneeten re 


2 dae 


pee 
oO 


Ss 


2 b+ < H- 4h B+ dh 2 Bs pe 


foruruforurororns = furufe 
£EES EEL 


ROR 









S2-CONTROL AND STA 


R OF DRIVES PRESENT 





; i p00, } UTERSTION 





TROLLER - 
IF FLAG = 1, SKIP THIS TEST 
: JUMP TO next 1) ) 
IF FLAG = 0, 00 THIS TEST 


G Tater 
HE iy ¢ Ts a 


Pt 
2anEs 
as 








TIAL TEST OF RHAS FOR 





1, STIMES ::D0 1 ITERATION 
sttno, QSTSTNM ;THIS SAVES TEST NUMBER 
JBRHAS RI R1 HAS ADDRESS OF RHAS 
#-1,aR1 THIS CLEARS RHAS (SURPRISED! ) 
T TEST DATA 
sBRANCH IF GOOD 
T GOOD DAT; 
R1, J#REGAOR “FAILING 
sRHAS DOE 






S NOT CLEAR 
ITH ONES MOVED INTO IT 





eetadeto ts RPOM / ‘S/p ets FONTR 





2660 
a aeiie eee 000001 O0iel2 
a ee 
cero rans abies 020000 157454 
71 1486 104400 021474 
eer Oel472 000423 
nd pe 1eus 1 14776 
Se Bin HER aie 
Sheree 
of Bis Hee am 
1 aba 012714 177777 
aad 
Bales 111137 015140 
oe Sie ier os 
2689 Bs pol ios 
soa Oel6ie 000137 O2e2e0e 
se55 pstls eer7e 020900 157314 
2 ES EAP ac 
3% 
33 Beles 104400 021640 
021636 000412 
| BIH oun cour 
is See 
021766 
ge ine apoyo 
710 Geeere 10400 22104 
ott Oe2102 000435 
313 022176 


LER TST-PT 2 


RHAS FOR UNIT NUMBE 


tétu: 


bigs 
4§: 


1$: 


es: 


5 RAR ARR AEE EEE EEE A AEE EE SA HR HEE EAE RHEE HEE EE ER REE EE 
;ATEST 4 T FOR ORI NT USING RHAS AND 


s ELLAELELALAAALLA SLES LAL LALLA LALA SAA LAAALSLAARLSSRAS RAR ERELALESS 


#1, STIMES -00 1 ITERATION 
~ PC, aeSTKINT START UITH 6 TTY ANT BOARD 
8SW13, ISWR NHIBIT TYPEOUT ? 
ts Sti : neXt TP, 80 Roe 
ous Sr eR rig 68 ie 
<1 vancapaa ING AT RHAS - DRIVES PRESENT/ 
secede LMS OO & REE. 
ne 
Seater RY if HAS ADOR. OF RHERI 
8-1, 9R4 ;MOVE ERRORS INTO RHERI 
aR2 iN T UNIT NO. 
1$ 
dR1, aUTOTALAT SAVE SRS TOTAL ate ON q 
aTOTALAT+ 
garorauat na 1 9 te 
2s sNONE Re SPONDING - TYPE THE NESSAGE 
XE2 THERE - GO FILL “UNITS” TABL 
#SW13, aSWR s INHIBIT ERR ERROR TYPE our? * 
LTST gleck ie scl ee FEO UNIT START AND LOAD 


678 


6$ 
(15) <12>/NO DRIVES-RHAS= 
{69S 
LiF 

(15) (12> /WRITING ONES INTO ERROR REeISTER 8] FOR ALL UNIT NUMBERS’ 


sf 


HE ASCI 
) not’ gE ANY BIT INT 


738 


25 ' 
<15)<12>/T0 LOOP’ON THIS TEST WO PR NTOUT SET SWITCHES 13, 8 $ 2 


ene pie gc igse) 30-MAR-76 20:59 PAGE S9 






UNITS" TABLE WITH we ORIVE IF SO 


33 TYPE ASCIZ STRING 
;GET oven THE ASCIZ 


33 TYPE ASCIZ STR Ne 


75 TYPE nek STRING 
ATTENTION REGISTER SO ABORT PROGRAN 


::TYPE ASCIZ. STRING 
T OVER THE ASC! 
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DZRINA. SE ty T FOR DRIVES PRESENT USING RHAS AND RHCS2 


C22:76 000137 O44470 IMP aaSEOP 360 0UT------------------------------- ) 


;#SET UP UNITS TABLE 


et tg 
0D “IOUT -E- 




















922202 XE2: 
e7el O2 012700 900010 2s: MOV ; COUNT 
g88 b22208 Ot 615074 MOV 48. RO R3 POINTER 

le Ole7e3 i 3S: MOV #-1, (R3)+ :PRESET BLOCK TO ALL ONES 
2724 DEC RO ; 
aces 74 BNE 3$ H IF 8 NOT DONE 

1 015074 MOV SUNITS,R3 : POINTER 
re Ee BP sy Sf Sow mgs ee 
2240 if ao30l6 Sy sRi' gs TMPO COUNTER nn 

sel B5S5uq eed 001176 4g: ROR aast T CARRY PP one ONE IN 0 BIT 
2733 022250 103120 % BCC S$ 
2734 Oeeese 0105 472500 MOV RS, ARHCS2 s INSERT UNIT NUMBER 
e738  0e22S6 Gee772 172520 CMP #24020, JRHOT Ruel PORT RPOY ? 
2736 Oeeeb4 O01 BEQ WPe_ORIVE F SO 
2737 Oeccbh Ce 020020 172510 CMP #20020, JRHOT et tS ATSTNGL PORT RPO ? 
2738 Oece74 001477 BEQ 6$ YPE DRIVE NO.IF YES 
sag , 
e741 ; $ GAB. AENGRL, ARVO 1S THIS A DUAL PORT RPOS ? 
2742 022276 022777 O24021 172500 CMP #24021, JRHDT 318 THIS RPCS 7 
2743 022304 001473 BEQ 6$ -TYPE UNIT NO. 
2744 022306 022777 C2002! 172470 CMP #20021, IRHDT 1S Furs A A SINGLE’ Po bor RPOS ? 
2745 Oee314 001467 BEQ 6$ TYPE UNIT 
ee) £316 022777 oO2402e2 172460 CMP #24022,RHDT  ;IS THIS A PORT RPOE ? 
2748 p5sai6 001463 BEQ 6$ 5,1 THE NooTF 
2749 O2e3e6 022777 O20022 172450 CMP #20022, IRHDT iS THIS A SINGLE PORT RPOG ? 
2750 O22334 001457 BEQ : T F 7 
sfek $3 PET TETTTOVTTTTTCTTCTTTT TT TT TTT TTT TTT TTT TTT Te TTT TTT TTT TT TTT TT 
2753 
2754 -#NO...1T°S NOT AN RPOY/RPOS/RPOS DEVICE 
2755 #50 TYPE OUT THE DEVICE TYPE 
ores 336 104400 022344 TYPE S$ ssTYPE ASCIZ STRING 
2758 psesa8 000410 BR 64$ T jONER HE ASCIZ 
2759 jess: "ASCIZ <15><12>/UNIT NUMBE 
Se 010546 MOV RS, -(SP) ;GET READY TO TYPE UNIT NUMBER 
eres ee 104404 TYPOS 

370 104400 022376 TYPE 67S 3 TYPE ASCIz. TRING 

000406 BR 66S SIGET OVER THE ASCIZ 
--67§: .ASCIZ 7, RHOT = / 


Free geeung 01774 172366 66S: 


;GET READY TO TYPE RHOT 





MOV ORHOT , -( SP) 






E09 
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OZRIHA. SET ty TEST FOR DRIVES PRESENT USING RHAS AND RHCS2 





SEQ 0107 







? 1948 Typ9¢ 
7 400 022426 TYP 69S 3s TYPE ASCIZ STRING 
7 booM ag VER THE ASCIZ 
7? i898: ASCIZ 7 - NOT AN RPOWRPOS/RPOG DEVICE #1? 
Hee Res y55 000407 S$ :NO RPO4/S/6 FOUND SO BRANCH 
2774 O2e474 010523 6$: MOV RS, (R3)+ 
2775 Oee476 104400 001223 TYPE SCRLF 
pesans 010546 MOV RS, -(SP) :PUT DRIVE NO. ON STACK 
022504 104404 TYPDS :TYPE DRIVE NO. 
2778 022506 015116 I JeNOUNIT *INCR TOTAL NO. OF UNITS 
7 12 S$: INC RS : RHC nol T ADDRESS 
He, : 14 apes nee RO ORI oN ER pon DOWN ONE 
2782 O2e516 OOles2 BNE 4§ : TEST aNocy DO ext UNIT IF 8 NOT DONE 
eres 2520 013737 015074 015114 MOV QHUNTT QsSUNIT _;SET UNIT NO. TO 0 FIRST ONE FOUND/OR 0 
8s pesese 13737 015116 015120 MOV JENOUNT tT, aBNUNIT’ ;SAVE NO. OF UN 
2785 Oees34 005337 015120 DEC ry IF NUNIT = 0 THEN ONLY ONE UNIT 
2787 TF NUNIT > O THEN MORE THAN ONE UNIT 














2789 Oees4G 005737 015122 SELTST: TST SeSELECT ;STARTING ADDRESS 200 ” 
O2eS44 001403 BEQ TSTS BRANCH IF STARTING FROM 200 
e791 Oe2eS46 013727 015124 015114 QBUNITSL,JeUNIT ;CHANGE UNIT NUMBER TO SELECTED ONE 






eee eS 








DZRJHA 


He 


273s 





Secpesnenaead 


89 6B 03 £303 0 (3 09 9.09 
Ob 0 ee he 


ea 


SO 
022654 


ty 


000904 
912737 
012737 


004737 
005037 


_—akt RPO4/S/’6 DSKLS CONTROLLER TST-PT 2 
TEST. FOR DRIVES PRESENT USING RHAS AND RHCS2 
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30-MAR-76 20:59 PAGE 62 





536 9 938 EE 9 9 98 9 9 EE 8 a dk dE 
5 TYPE SERIAL NUMBER AND DRIVE TYPE 


ti 
i REA aa th: at A) AND DRIVE TYPE REGISTER 
% 


TO LOOP HERE SET SWITCH 8 AND THIS TEST NO AND RESTART 
ne 


tits: SCOPE 
HOV. #1. STIMES ;300_1, ITERATION 
MOV #1, SLPAOR : SET SCOPE LOOP ADDRESS 


JSR PC auc OISK ;FILL_UNIT NO. 
CLR aeATTE : CLEAR 


;#TEST FOR UNIT #0 























TST § Q@UNIT :1S UNIT NEXT IN THE UNITS TABLE ? 
BNE O$ IF NOT, TEST THIS UNI 
MOV nL, RO IF SO, CHECK THE LOAD MEDIA LOCATION 
CMPB * (RO) WAS IS AN REO4/S/6 ? f 
t NO... GO AHE TEST UNIT #0 | 
TST SeSELECT WAS UNIT #0 SELECTED ? 
; (IE, WAS I A 210 START 7) 
BNE 10S ;1F $0... TEST UNIT 80 
: INCRENENT THE UNITS TABLE TO NEXT DRIVE (IF ANY) 
* 8 DECREMENT THE "NOUNITS" PRESENT (TO BE TESTED) 
MOV UNITS, RO sLOAD UNITS T POINTER 
TST (RO)+ :SELEC NEX UNTT IN TABLE 
: (DOUBLE INCREMENT THE PO 
cup #-1,, (RO) 18 THERE ANOTHER TABLE E N SENT 2 
BY ana errant elses SSE x reste 
10S: MOV prt T,RO RG CONTAINS THE UNIT UNDER TEST 









; PRESSE AA FRE EEE SRA AERA LE SA LEREL EERE REAR EERE LEER LES A LEE ES ERAS 
L 





: & : CLEAR VICE TYPE FLA 
ee ae: a a 1. 
Bee = SSona2, aRMoT  STRGLE PORT RPDS 

: BEQ 5 ; if .. SET FLAG | 

: BR ‘DON’T SET THE RPO& FLAG 






; 3$ 
;e$: MOV #-1, d8RPOG ;SET THE FLAG 






338: ASSUME THE NEXT UNIT IS AN RPOY 
Cee REEERAEAAEARAREEEEREEEEEEAEAEDEEEEEREDREARAREEAREREARERERERE 












2847 





ea | 
= 





® 
N“N 
— 





aaa AER 
: 





2 








DoRTHASET St grovsg oats 


116037 917336 
USE aE 
13746 015114 
022740 


017746 172022 
022774 


000410 
017746 171764 


ve 0231le 
0413 


CONTROL 


RIAL 


015136 


171754 
171744 


171734 
171724 


171714 
171704 
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By ote @RHSN FOR 


ls oe Ot ASCITCALL OIGITS) 


;GET OVER THE ASCIZ 


R TST-PT 2 MACYI1 27(655) 
R AND DRIVE TYPE 
ATABLE(RO), J#ATTEN 
a ea SES 
BR “GET 0 
iagss* VASCIZ (15) <12)/TESTING’ DRIVE NUMBER/ 
"MOV QSUNIT, -(SP) 
TYPOS 
TYPE 675 
BP § 
pgR7S: -ASCIZ (15) 12> /SERTAL Ab. = 
"MOV JRHSN, - (SP) 
TYP 
TY 623 
BR 8$ 
jigs: -ASCIZ (15><12>/DRIVE TiPE = 
“MOV JRHOT , - (SP) 
TYPOC 


~~ ea hn nan 


4§: 


ig 


ss: 


TYPE 
BR 
-ASCIZ 


ae tal 


#20020, JRHOT 
4§ 


gett, ane! 
#20021, JRHDT 
S$ 


#24022, JRHDT 


63 
& 2, JRHDT 
a 


71$ 


Og VER 
<15><12>/DRIVE 18° AN RPON7<15><12> 


1$ 





TF @RHDT FOR TYP 
;3G0 TYPE--OCTAL ASCIICALL DIGITS) 


pePeeetiaTe ATTENTION BIT 


fue Asclz 


NPE Be TO aa 
5 RSUIE 31 STRING 


,GET OVER HE ASCIZ 


YPE ASCII RSG 0 our 


sine THE MESSAGE 


Pu, Po 


Net eaie Nescace 


Yee Me. SSAGE 
TN at ts 
T OUT 


DRIVE IS NOT RPOW/S/6 - SO 
:D0 NOT TYPE ANY MESSAGE OUT 


;~SHOULD NEVER HAPPEN AT THIS POINT 
SUNLESS = pre gar SICK WHILE TESTING 


;;TYPE ASCIZ STRING 
T HE 


ASCIZ 


;SKIP NEXT ONES 


EOUT 


ee all 
- wt 








SEQ 0109 








a alia gh OSS Bas S ater 
ue gray oes 


Beueueeee 


eee 
uw tWwfr-O 
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R AND DRIVE TYPE 






TYPE 738 5 TYPE ASCIZ STR 
BR 558 OVER fue Rectz 
i798: "ASCIZ ¢15)<12>/DRIVE 18° ae TePOe les ce) 
- ; 1$ SKIP NEXT 

3 TYPE 75$ 3 TYPE ASCIZ STRING 


ug ;GET OVER THE ASCIZ vA 
ijz98: -ASCIZ 18) <12>/DRIVE 18'AN RPOG/<15)<12> Vy 


¢ . 
fp RRPRRAAAR EEE RRAA EAA L REESE SELL EEAEEELLLAAL SLA AAL ELS SRERELELE ES 


i$: TST ORHSN ;READ SERIAL NO. AND DRIVE TYPE 
TST @RHOT : THESE TWO ARE TO HELP SCOPE LOOPS 
MOV QRHSN,a#SAVSN  ;SAVE TO CHECK IF CLR RHCSe BIT S CLEARS ANY 
MOV DRHOT, aeSAVDT  ;SAVE TO CHECK IF CLR RHCSe BIT 5 CLEARS ANY 






BITS 
BIT 








DoRdMA.SEY tS TYPE 


= 


e8 
8 8 


tT 
~_ 


: 


R eS 
8S 2 


& 


Bg 
28a 
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NUMBER AND DRIVE TYPE 


3% 
;# 
: 


tS 






LRELAFSLALE LEAL LALLA SKA LALAAL A LRALESLLLLSARRAAAE RELA LE AAL ALES 


t STEST 


6 CHECK MOL TO BE LOW 

MAKE SURE THAT DRIVE IS OFF LINE BEFORE STARTING PROGRAM 
IF BRIVE is ON LIN Ng AFTER TYPE OUT THE PROGRAM WILL 
HANG VER WAITING FOR DRIVE TO GO OFF LINE 
eo." ~ eigenen medal emcee 


MOV #TTNO,O8TSTNM ©; THIS S TEST NUMBER 
ISR PC, aeCLOISK GIVE INITILI 





BIT #MOL, IRS : CHECK MOL IN RHOS! 
BEQ TST? ‘BRANCH IF MOL LOW 
TYPE 65S 3; TYPE ASCIZ STRING 
BR 4g -:GET OVER THE ASCIZ 
iigss: SASCIZ <15><12>/DRIVE 16’0N LINE - MOL IS HIGH/ 
; TYPE 67S ;;TYPE ASCIZ STRING 
BR 66$ : THE ASCIZ 
jj878: -ASCIZ <15><12>/HIT STOP’ON DRIVE TO GET IT OFF LINE/ 
"TYPE 69S ;; TYPE ASCIZ_ STRING 
BR 68s =:GET OVER THE ASCIZ 
ji828: ASCIZ <15><12>/PROGRAM WILL HANG TESTING MOL TILL MOL IS LOW/ 
1$: B 





IT #MOL , IRB ;CHECK MOL IN RHDS1 
1$ ; BRANCH 
PE 71S ;; TYPE ASCIZ STRING 
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DZRJHA. SE tg LOW 


HA. CHECK MOL TO \ 
e356 3 s SEAREAERAAAAAARSRRKSRALARASASLRASLARALAAAARARAARAAAAAAAAEAAF RAS 
Be TEST 7 PACK ACKNOWLEDGE COMMAND TEST 
s% THE PACK ACKNOWLEDGE COMMAND WILL BE LOADED INTO RHCS1 WITH GO 
2960 1% THEN ALL REGISTERS WILL BE CHECKED 
2961 1% RH CLEAR WILL a GIVEN 
e962 - THEN ALL REGISTERS WILL BE CHECKED 
e854 © FELFKLFKEKKRAAAAFALALAAS LEELA RAELAARAAA AAA RAL RAAARHLAAAAAAAE 
gab5 d23622 o00004 tS17: SCOPE 
36 212706 001000 MOV aSTRCK,S RESET STACK 
2967 B53e50 10737 000007 017330 MOV aTTNO, SETSTNM THIS SAVES TEST NUMBER 
Sx 023636 004737 O4SE74 ISR PC, J¥CLDISK sINIT uit SET U SET uP GENERAL REG. 
2971 023642 012777 000001 171130 MOV #DMO, JRHMR eet BAONOSTTE. MODE | 
5 +e: 023650 913777 015210 171102 MOV DBPKACK, ORHCSL ;LOAD PACK ACKNOWLEDGE COMMAND INTO RHCS1 
Saoc -SAVE REGISTERS FOR COMPARISON AFTER GO 
2976 023656 004037 046366 SSR RO, J#SAVER : SAVE 
_ 2377 Oe23662 014752 RHWC : FROM 
2978 023664 016264 REINTO :TO 
2979 023666 000023 19. :NUMBER OF REGISTERS SAVED 
Sag t -GIVE GO TO PACK ACKNOWLEDGE COMMAND 
e382 023670 052777 000001 171062 Is #G0, JRHCS1 G0 TO PACK ACKNOWLEDGE COMMAND . 
2984 - “CHANGE SAVED REGISTERS TO EXPECTED VALUES 
e385 023676 052737 oo0100 o16214 BIS VV, QBREINTO+30 ;SAVED RHDS! 
2987 AFTER GO HAS BEEN GIVEN TO PACK ACKNOWLEDGE COMMAND 
2988 : SAVE REGISTERS AGAIN SO THAT COMPARISONS CAN 
5390 ie OO 
2990 023704 004037 046366 5 RO, 28SAVER : SAVE 
2991 023710 014752 RHIC : FROM 
2992 Oe37le 015220 WRF ROM 
3333 023714 o00023 19. sNUMBER OF REGISTERS SAVED 
2995 AS UPPER BYTE OF RHAS CAN BE CHANGING IN A DUAL PORT 
2996 ; OPERATION THE UPPER BYTE oF RHAS WILL BE SAVED AS IS 
2997 ion" T THE QHPARES ARE ONL Y VALID FOR THE LOWER BYTE | 
2998 023716 113737 016311 o15e45 VB BREINTO+25, RONTES: SAVE UPPER 4 
S000 ta 
3001 ; COMPARE REGISTERS BEFORE PACK ACKNOWLEDGE COMMAND ei 
3002 ‘ WITH AFTER GO 
3003 023724 004037 046570 tsp RO, I8COMPAR COMPARE: (! 
3004 023730 016264 ° REIN : BUFFER \, 
023732 015220 AIRF RON ‘TEST BUFFER fis 
023734 0000¢3 19. : NUMBER 
2007 023736 023744 1$ ‘RETURN FOR ERROR 
923740 023744 1$ : SAME 


MNDEC= 11 -DZRJH-A RPOW/S/ 
DZRJHA. SE t? 


tetsistotataistars 
WONIMU CWO 


SR 


3 
Bae 


3034 
3035 
Ten 


023764 


& OSKLS iets a TST-PT “ne 
PACK ACKNOWLEDGE T 


OS2460 
014750 


O4S440 


1S: 


es: 
iaa.6|6}8€vLNRM Chae eSCSC 


# 


RTS 
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;RETURN FOR GOOD COMPARISON 
ReERYORD, »RS i GET E Y TO INDEX 
RHWIC-2(RS), DHREGADR ; ;FAILING REGISTER ADDRESS 


1 ‘AFTER PA REGISTER CHANGE 


IS GIVEN 
PC RET URN TO COMPARISION 


ol ep  meper yper ens: 


tT10 


#STAC RESET 
#TTNO MS CTNM : THIS saves. TEST .NUMBER 
PC gaCLDISK sant DRIVE 
JRHMR T DIAGNOSTIC MODE 
RO, JBNAKECYL :SUBROUTINE TO GIVE A SEEK 
:COMMAND FOLOWED BY AN INIT 
‘THIS SHUOLD CHANGE RHCC TO 0 


#*##DIAGNOSTIC CODEx## 


SEQ 0113 
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H¥XDIAGNOSTIC CODE## 


FLTINI Pil 


3037 
3038 
3039 
3040 


1 
3072 


000004 


104042 
013737 


Se ee 


001176 


TIMOTS4 
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.REM_% 
THE FOLLOWING TESTS WILL ATTEMPT TO CATCH THOSE BUGS WHICH FAULT 
INSERTION HAS SHOWN US WE MISSED IN THE FIRST PART OF THIS TEST. 


mt TEST at edly THAT THE ALL RH11 REGISTERS WIIL 
, CAUSE A NON-EXISTANT MEMORY ERROR WHEN ACCESSED 


BY Paiste 


Rut] Ion 


ar lll ge gi ll 


A LEGAL REGISTER RESPONSE T 
jeusned peageaneeanensced tees At HsHEaEEOOAEEEER ASO EEEAENEEO 


TEST ll 
+éT11: 
OOlele 
017330 MOV 
170712 MOV 
MOV 
001176 MOV 
000004 MOV 
LOO: NOV 
100: MOV 
MOV 
™ var 
ADD 
CMP 
BLOS- 
BR 
EOO: ERROR 


000004 ocd: MOV 


480 OES STNN 
#CLR, JRHCS2 
#RHCS1,RS 


DHTIMOT, STMPO 
#£00, aeTIMOT 


#STACK, SP 
(RS) Re 


Re ,REGADR 


42 
STMPO, J&TIMOT 


; ITERATION 
iiaTs. SAVES TEST NUMBER 
“CLEAR RH11 CONTROLLER 


SASELIST POINTER. 


;SAVE TIMEOUT VECTOR. 
SET VECTOR TO E00 


;SET STACK POINTER. 
;R2=RH11 ADDRESS. 
;DOES THE RH11 REGISTER RESPOND? 


OT OTHE Sew 
T THE END OF LEGAL RH11 REGISTERS? 


NOP 
YES! GOTO 000. 


;RESTORE TIMEOUT VECTOR. 


SEQ 0114 


ee a ee ee 
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FLTINI.Pll ti BCTA LEGAL REGISTER RESPONSE TEST 


3073 


a 
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FLTINI.P1l til BCTA LEGAL REGISTER RESPONSE TEST 


74 2 
75 ite Fo FOLLOWING 6 TESTS WILL mi THE BYTE LOGIC FOR THE RH11 REGISTERS 
3076 NO ATTE pr isn MADE TO De INE IF ALL POSSIBLE DATA PATTERNS CAN B 
3077 LOADED HE RHI hl] RUARDWARE WILL ALLOW THE PROGRAM.TO SELECTIVLY 
30 at Mire. usthic FOLLOWING COMMANDS: 
3080 . MOVE BYTE BOTH TO AND FROM THE WORD COUNT REGISTER 
3082 2). BIT SET INTO THE WORD COUNT REGISTER. 
. 36a BBs 3). BIT CLEAR INTO THE WORD COUNT REGISTER. 
= 
apes 33 REARALKAASRARE LALA SE RAK REALE AREA SERA RARAAEAARARA RARER SRA KAKA AER KE 
30 TEST 12 CTA MOVB LO BYTE TO WC 
30930 , . . © LRKEKRERAEKA RAS RA KARAS RRA RARE KARA AR RA AE LAA RAR RHRK KKK AREA AREKE 
3091 024124 00004 téTi2: Sc 
3092 Oe4le6 012737 000001 odle12 MOV TIMES ;:D0 1 ITERATION 
3093 134 012737 000012 017330 MOV aa aeTSTNM tts SAVES Test N UMBER 
3094 024142 012777 OO0040 170606 MOV #CLR, JRHCS2 *CLEAR RH11 CONTROLLER 
oe 024150 012706 001000 MOV #STACK, SP om STACK POINTER. 
3098 024154 013702 014752 MOV RHWC, Re ;R2=RH11 WC ADDRESS. 
3099 024160 010237 o4S440 MOV R2, REGADR "REGISTER ADDRESS TO REGADR FOR TYPING. 
3100 024164 012737 000377 001124 MOV #377, SGDDAT : SGDDAT=S/B. 
3108 024172 005012 Lo2: CLR (R2)- ;CLEAR RH11 WC. 
3104 024174 112712 000377 102: MOVB #377, (R2) ;SET WC TO LO BYTE. 
3105 024200 011237 O01126 MOV (R2); $BDDAT SBDDAT=ACTUAL WAS 
3107 Oe4204 023737 001126 001124 CMP SBDDAT,SGDDAT  ;COMPARE RESULTS 
3108 Oe¥2i2 001401 BEQ ttl 13 NEXT TEST 
3109 024214 104044 ERROR eee. 


-< 


Cai 
zo 
oe 5 
*- fe 


a 
et et ta ae 


ra 


MID UN £ tfueH 


0— 0 9 bp po pe 


0 GI9GI G9 GIG) G) GI GI GIGI WIG) GI) GIGI GI WI OI GI GIGI GIGI WI CII LI 


0 = 0-2 & ¢ b= 6+ p= 9 —=— 9 b-— P— b -* & — 9 = b-2 & — 9 = P= H+ & 2H 2 p= 0 


SSB RRS ORR BBR RR PON Ss 


* BlR‘ROvB vo ete 


TST-PT 2 
TO we 
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5 FPEREREEERERESERERESE REEL RRREESEEE SEEGER ESSE EE ESE ESE EER EES ES ES 


t&TEST 13 BCTA MOVB HI BYTE TO 
sap oo rose aonaageene core pment seaman eterna ity 


a ee 
001000 


014752 
OYS440 
177400 001124 


.03: 


000377 103: 


001126 
001126 901124 


MOV 
MOV 
MOV 


MOV 








a STINES 3:00 1 oArERP TION 
eTtNO,aaTSTNM ©; THIS S TEST NUMBER 
CLR, MRHCS2 ‘CLEAR RH11 CONTROLLER 
aSTACK, SP ;SET STACK POINTER. 
RHWC, R2 ;R2=RH11 WC HI BYTE ADDRESS. 
Re, REGAOR 

#1?7400,$GDDAT ;SGDDAT=S/B. 

(R2) ;CLEAR RHI WC. 

R2 sR2=HI BYTE ADDRESS. 
#377, (Re) ;SET WC HI BYTE. 

Re ;R@=FULL WORD ADDRESS. 
(R2), $8DDAT ; SBDDAT=ACTUAL . 
SBODAT,SGDDAT  ;COMPARE RESULTS. 

iSTl4 “NEXT TEST 














~ 3141 


GIGI GI GIG) GIGI GI OI OI GI 645 GI GIGI) GIGI CIGIGI GIGI LIGIG) 
THEO OB VOU fear Gunes GO Leste 


ao 
~y 


FLINI-Pil 


H-A, RPOY/S- 


t13 


Ol271e 
1S271e 


011237 


023737 
0014C1 
104045 
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001124 


001124 





iE bgendtantandansennanmmnnns 
4 


LO BY 
Sa, pene pam ae ease: ate ain ane erage tt cmarnme 


tat14: 


LO4: 


TO4: 


SEO 0118 



















Boy #1, STIMES TION 
MOV at tNo 0,981 sTN itis sh veo" tet NUMBER 
MOV AR RHI1 CONTROLLER 
MOV a0.9 ;SET STACK POINTER. 
MOV Re *  s$R@=RH11 WC ADDRESS 
MOV Re, REGADR 

MOV #377, SGDDAT ; SGDDAT=S/B. 

CLR (R2) ;CLEAR RH11 WC. 

MOV #252, (R2) ;SET UP WC 

BIS8 #125, (Re) :D0 A BISB 


MOV (R2),SBD0AT | ;SBODAT=WAS. 


CMP $BDDAT , SGDDAT ‘ran RESULTS 
TST15 :NEXT TEST 












SEQ 0119 





an Ri " cameos «> “ethos ‘BoPRKRS gorge ist 2 MACY11 27(655) 30-MAR-76 20:59 PAGE 73 




















l 
aise  SREKPELESESRELS SS RESP LPR LA GSES RSLS RS SKSRSSAAEHYRS SESS SIRE LEE LS 
i :bresT 1S 8CTA BISB HI-BYTE TO WC 

171 oRSERBLARKESHRAERESSESESKERRSRESEKSERERRRSRLFRERRRAEREKKLHSE RNR ESRE 

172 oe41e2 téT15: SCOPE 

eee a a nem es one 

175 455 igre 35330 MOV Ro aencee cLEBR RM RH11 CONTROLLE 
ie 024436 012706 001000 MOV #STACK, SP sat STACK POINTER. 

3178 peuwde 913702 014752 MOV RHWC, Re ;R2=RH11 WC ADDRESS. 
3180 010237 o4s440 MOV Re, REGADR 

318} O244Se 012737 177400 001124 MOV 8177400,$GDDAT ;S$GDDAT=S/B. 

3153 024460 o0s012 LOS: CLR (Re) sCLEAR RH11 WC. 
3185 O24462 005202 a INC R2 :R2 =HI BYTE. 

3187 O2e4464 112712 000125 MOVB #125, (R2) ;SET ue BHI we. 
3188 024470 15e712 900252 ICS: BISB #8252; (Re) :D0 A BISB. 

3130 024474 005302 DEC R2 ;R2=FULL WORD ADDRESS. 
2k O24476 011237 001126 MOV (R2), SBDDAT ; SBDDAT=WAS. 

B18 024502 023737 001126 001124 CMP SBODAT,SGDDAT  ;COMPARE RESULTS. 
3195 024510 001401 BEQ TST1S !NEXT TEST 

3196 24512 104045 4s 

3197 

3198 










SES 0120 





MACY11 27(655) 30-MAR-76 20:59 PAGE 74 
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FLTINI.P1l TiS BCTA BISB HI-BYTE TO WC 







3133 ; SRRKLSLALALAAAAELLERASLSLAALAA RHEL EALLAAAAAAALARAE LLAARAELS REESE 
ti 6 BCTA BICB LO-BYTE TO WC 
4) atala-b-1-+> Slab each iniaieciatatainialainiaiainiaiaiaiaiaiaiaininiaiaininie 
pave pogao tétig OPE 
16 Olev3? 900001 od1e21e2 81, STIMES : 
3205 Biers 000016 017390 MOV at tNo 0,gaTsINn $400 itis saver test 
$208 034 12777 O0004O 170216 MOV RH11 CONTROLL RP 
$208 g24540 012706 001000 MOV renege ext STACK POINTER. 
2210 o24s44 O1 014 MOV RHC, R2 :R@=RH11 WC ADDRESS. 
3ell 24550 Bt a299 o4s4 MOV R2, REGADR 
zie G2e4554 Ole737 OO00eS2 001124 MOV 8252, SGDDAT ; SGDDAT=S/B. 
14 o24s62 90Scie2 LOb: CLR (R2) sCLEAR RHI WC. 
#16 O24564 012712 000377 MOV #377, (Re) SET WC=0000377 
#218 024570 142712 000125 19:  BICBS #125, (Re) D0 A BICB 
#20 024574 011237 001126 MOV (R2), SBDDAT ; SBDDAT=WAS. 
924600 023727 001126 001124 CMP $BODAT,SGDDAT  ;COMPARE RESULTS. 
0&6 Opacae Ls sNEXT TEST 





NS 
: 
2 
254 





ys ee RPC4/S& DSKLS CONTROLLER "ST-PT 2 


FLTINI.P 


Buri3 


tig 


BCTA SICB LO-BYTE TO uC 


000377 
900125 


001126 
001126 


l2le 
130 


358 


001124 


001124 


aT 
tét17 


LO?: 


nov 
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iiest 17, CTA RIC HIS BYE TO 


A BICB HI- BYTE T 


#1, STIMES 

at tho, getsre 
aSTACK, SP 
RHWC c Re 
T2500, SCODAT 
(R2) 

#2 


#377, (Re) 
#125; (Re) 


Re 

(R2), SBDDAT 
$BDDAT , SGDDAT 
Ut dea 


© pS pre ere scenes 


00 ITERATION 
this, oave RMIT CONTROLLER 

eet STACK POINTER. 

;R2=RHI1 WC ADDRESS. 

; SGDDAT=S/8. 

;CLEAR RHI1 WC. 

;R2=HI BYTE. 


RET =177400 
:00 A BICB 


sR2=FULL WORD. 
; SBODAT=WAS. 


;COMPARE RESULTS. 
NEXT TEST 


SEG Ole2l 





+; 7 ean RPO4/S’& DSKLS CONTROLLER TST-PT 2 


eepoeeRenoe 2 


“4 


fore 
~e 


SERS REE SSSSS 


ti? 
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BCTA BICB HI- BYTE TO WC 


001176 


001176 
000004 


000004 


this res TEs! ce ert. ue aoe . one “the gy te | 


SUSE ALY i PP scee he 


T WILL TYPE OU 


FOR THE ‘a OF THE RH70 
a3 chats AT tof 


IGURATI ON ALLO 
To ADDRESS TREGISTE 


TER 23(8) OR AS 


Ba ee Tg ee ee 
{ATEST 20 BCTA ILLEGAL REGISTER TEST 


tat 


MOV TIMES ;:D0 1 ITERATION | 
MOV oth aa TSTNM btATS SAVES TEST NUMBER 
MOV #CLR, JRHCS2 CLEAR RH11 CONTROLLER 
TST a#RH70 ; CHECK TO SEE IF RUNNING WITH RH70 
BEQ IF NOT...SKIP NEXT 8 DO FOLLOWING Po 
MOV RHCS3,R2 Re = last LEGAL RH70 REG ADDRESS 
BR 2s :SKIP NEXT : 
1$: MOV RHEC2, Re :R2 = LAST LEGAL RH11 REG ADDRESS. 
2s: ADD #2, Re *Re = FIRST ILLEGAL RODRESS. 
MOV Re: REGADR 
CLR $BODAT ; SBDDAT=WAS. 
CLR $GDDAT : SGDDAT=S/B. 
MOV DeTIMOT,STMPO  ;SAVE TIMEOUT VECTOR. 
MOV sOl0,astIMOT ;SET TIMEOUT VECTOR TO Of. 
L10: MOV SSTACK, SP sSET THE STACK POINTER. 
TST (R2) ; TEST ADDRESS. 
ERROR 47 
010: STMPO,asTIMOT  ;RESTORE TIMEOUT VECTOR. 
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cag Mp RP RRR gem: 

















SEQ 0122 


Mad re nat 
LOGIC WILL ALLOW UP TO 32 


PALLET HF A aeSbaBS 


GISTERS, SO 
HE LAST 


WS 18 
BEF ORE 


REKKFLLRALAAAARAKS 





MNCEC-11-D2RJH-A 
FLT 


IN1.P1i 


3301 


SeeneneS 


pests 
00 YOU £ WTO 


3 


025064 


025326 


es 


025406 
025406 


oes41e 
025416 


CesS42e 
OeS4e6 


015140 


001100 


025510 


025110 
025172 
025254 


025334 


001000 


014756 
045440 


015140 
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20 BCTA ILLEGAL REGISTER TEST 


zNOM WE ATTACK BTCB 5 


FOLLOWING T i TESTS A gt IF ALL NON DRIVES SET THE 
ek BAT BNO Pbk EXISTING B DRIVES CLEAR THE NED BIT. ~ 
ae Pook A AT TOT O DETERMINE WHICH DRIVES EXIST AND TEST THAT 


ee WILL Gt Ct EAR THE NED BIT. AND ALSO THAT NON EXISTANT DRIVES J 
Witee T 


ON FIRST PASS ONLY, IF ALL DRIVES ARE ON LINE A MESSAGE WILL SO ADVISE THE 
OPERATOR. THE TEST’WILL CONTINUE REGARLESS OF THE OPERATORS ACTION. 


% 
s SEFKAKSKAALAALAAEASLKKAEAAAKLTLE HE LESSAFARREAALARLAERERARAAAAAKE 
TEST 21 BCTB (NED) NON-EXISTANT DRIVE TEST. T) 

° Ca Semen ene 


tét21 


c 
MOV TIMES : ;00. 1 gATEBATION 
MOV Steto. QeTSTNM =; THI S TEST NUMBER 
MOV #CLR, JRHCS2 OLEBR sae CONTROLLER 
CMPB = A#TOTALAT, #377 :ARE ALL DRIVES ON LINE. 
BNE Ul1 ;NO GO RUN THE TEST. 
CMP SPASS, #0 ;1F PASS #0 THEN TYPE MESSAGE 
nt “ADVISING OPERATOR 
ot a !THAT THIS TEST WILL NOT BE RUN 
IMP X11 
Yll: 
a Pe ene 
jiB5S: SASCIZ <15><12>/ALL DRIVES APPEAR TO BE ON LINE THEREFORE/ 
2 TYPE 4678 33 TYPE ASCIZ Z STRING, 
i878: SASCIZ <15><12>/THE NED  RORLEXISTANT DRT DRIVE TEST CANNOT BE/ 
a a he 
ji898: "ASCIZ <15)<12>/RUN. T0’RUN THIS TEST TAKE ONE OR MORE/ 
at DT ee 
i718: “ASCIZ <15><12>/DRIVES jiger 0% AND RESTART THE PROGRAM/ 
Ull: MOV STACK, SP ;SET STACK POINTER. 
HOV RHCSE ARG. ;R2=RH11 RHCS2 ADDRESS. 
MOV JsTOTALAT, RO 
CLR Rl 





NNDE 
FLTINI.Pil 


025430 
025432 


025434 


tei 
006000 
103423 
010137 
052737 
013705 
010112 
011537 
011237 
042737 
023737 
001005 
905201 
127 
001402 
000746 


194050 


001124 
010000 001124 


014760 


001176 


001126 
167770 


001126 


000010 
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BCTB (NED) NON-EXISTANT DRIVE TEST. (SE 


001126 
001124 





110 





SEQ 0124 






) 






$11: ROR RO 









BCS = s«NAL 
Rll: MOV RL, SGDDAT ; SGDDAT=S/B. 

BIS #NED, SGDDAT 

MOV _—sRHCS1, RS SADDRESS OF A DEVICE REGISTER. 
Lll: MOV RIL, (Re) ;LOAD A NON-EXISTANT DRIVE. 

Mov _—«(RS), STMPO SATTEMPT TO READ FROM DEVICE REGISTER. 






MOV (R2), SBDDAT - SBDDAT=WAS. | 
BIC #tC<NED!US4!US2!US1>, SBDDAT; SBDDAT=SAVED DATA. 


CMP $BDDAT,SGDDAT  ;COMPARE RESULTS. 
BNE Ell 






Nll: INC RI 
li CMP R1, #8. TESTED ALL DRIVES YET. 
" -BEQ TST2e ;NEXT TEST 
BR Sil 








SO 
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FLTINI.Pil fei BCTB (NED) NON-EXISTANT DRIVE TEST. (SET) 


5 preet oo aCTR (NED) NONCEXISTANT DRIVE TecT. (CLEARED) 
: &TE BCTB (NED) NON-EXISTANT DRIVE TEST. (CLEARED) 
LSERHENEAEAEOASHELEREHEREAESH NEES SIEONOHSERTERETES TSS EE HERES 


gogcos téTz2: SCOPE 
12737 000001 2 MOV #1, STIMES 


b18777 16? my Hntgaleye HEM see Teel one 


012706 #STACK, SP ;SET STACK POINTER. 
13708 RHCS2, Re :R2=RH11 RHCS2 ADDRESS. 
1023 MOV Re. RE 

gaTOTALAT, RO 


eee 


005001 
006000 : ROR RO 
103020 Nl2 
010137 001124 R1, SGDDAT 
013705 014760 | RHCS1,R5 ADDRESS OF A DEVICE REGISTER. 
‘p10112 : R1, (R2) ;SELECT UNIT. 
011537 001176 (RS), STMPO ATTEMPT TO READ FROM DEVICE. 
025606° 011237 001126 (R2), SBDDAT : SBDDAT=WAS. 
042737 167770 001126 #tC<NED!US4!US2!US1>, SBDDAT ;SBDDAT=SAVED DATA. 
‘ 023737 oO01126 o01124 $BDDAT,SGDDAT  ;COMPARE RESULTS. 
001005 BNE Ele 


ES 
= 
mh 
ee 
BS 
3398 
a 
a 
= 
i 


00s201 , al 
e012? 000010 RL. 38. TESTED, ALL DRIVES. 


000751 BR S 
104050 : Shimane <0 © 


Geseeeeeeee 
ONWU1.£ Wr-O 
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FLTINI.P11 te BCTB (NED) NON-EXISTANT DRIVE TEST. (CLEARED) 


S422 
REM 
TEST TO gre IF _WE CAN READ FROM THE “AS” REGISTER AND NOT CAUSE 


A NED NON-EXISTANT DRIVE ERROR 
| Jee eerie 
> &TE TB AS REGISTER TEST 
i Sg reopen gym rmmmeaer por 
TIMES ;:00 1 ITERATION 
MOV are JSTSTNM ;THIS SAVES TEST NUMBER 
#CLR, ARHCS2 *CLEAR RH11 CONTROLLER 
#STACK, SP sSET STACK POINTER. 


-R2=RH11 CS2 ADDRESS. 
Rusa? USS!USL, SGDDAT; SGDDAT=S/B. 


-RHCS1, RS ;ADDRESS OF A DEVICE REGISTER. 
#US4!US2!US1, (R2);LOAD A NON-EXISTANT DEVICE. 
" RHAS, R2 ;Re= “AS”. 
(R2),STMPO -—«g ATTEMPT TO READ FROM DEVICE AS. 
;CLEAR AS REGISTER. 


~(R2) 
RHCS2 Re *Re=RH11 CS2 ADDRESS. 
2,REGADR 


; SBDDAT=WAS. 
src<Nep usdtuse! tei), SBODAT;SAVE NED AND DEVICE SELECTED. 


$BDDAT,SGDDAT ;COMPARE RESULTS. 
geile :NEXT TEST 


MNDEC=11-DZRJH-A,RPO4/S/6 DSKLS CONTROLLER TST-PT 2 MACY11 27(655) 30-MAR-76 20:59 PAGE 81 SEQ 0127 
FLTINI.P1l t23 BCTB AS REGISTER TEST 
3460 . REM 
3461 THE NEXT “THREE TESTS WILL TEST THE BUS ADDRESS REGISTER IN BOTH WORD 
3462 AND BYTE MODE. THE PATTERNS ARE CHOSEN TO PICK UP ANY DROPPED OR STUCK 
es 
3466 7 3HHHH HHH HHEHHHE EBS HEH SHB HHI HHH HEHE 
3467 SETEST 24 BCTC BUS ADDRESS REGISTE 
© EKKKREKERERERREKRERRARA SERA ARERE RA RRA RRA RAAEKRA RAR AA LEA RRA ALAA EKE 
Sues 025764 900004 tST24: SCOPE 
3470 025766 012737 O00001 001212 MOV TIMES : ITERATION 
3471 025774 - 012737 000024 017330 MOV tio a8TSTNM tints SA VES TEST NUMBER 
z172 026002 012777 OO004O 166746 MOV #CLR, MRHCS2 : CLEAR eit CONTROLLER 
sie 026010° 012706 001000 MOV #STACK, SP SET STACK POINTER. 
3476 026014 013702 014754 MOV RHBA, Re ;R2=RH11 BA ADDRESS. 
3477 O26020 010237 O4S44O MOV R2, REGADR 
Ey 026024 012705 026064 MOV #LSTI4A, RS ;RS=TEST LIST ADDRESS. 
$180 026030 012537 001124 L14: MOV (RS)+,S$GDDAT ;S$GDDAT=S/B. 
3482 026034 013712 001124 114: MOV SGDDAT, (R2) ;SET BUS ADDRESS REGISTER. 
o43 026040 011227 OOlle6 MOV (Re), SBDDAT *READ BUS ADDRESS REGISTER. 
3485 O26044 023737 001126 001124 CMP SBDDAT,SGDDAT  ;COMPARE RESULTS. 
3486 O260S2 001401 BEQ N14 GET NEXT TEST DATA. 
s187 G26054 1040S2 ERROR 52 
3489 026056 005715 NI4: ‘TST (RS) sAT END OF LIST : 
_ 3490 026060 001363 BNE L14 
3491 26062 000440 BR TSTes ‘NEXT TEST 
3492 026064 000002 LSTIYA: 2 
3493 026066 000004 4 
3494 026070 O00010 10 
3495 026072 000020 20 
Sug9 : et st 10 
3498 hasta 000200 200 
3499 O26102 000400 400 
3500 026104 001000 1000 
3501 026106 002000 2000 
Se ie ioe Bt 
3504 026114 20000 20000 
3505 026116 O40000: 40000 
3506 026120 100000 100 
3507 Oeble2 177776 177776 
3508 O26124 177774 177774 
3509 Ocbl26 177772 17777, 
3510 026130 177766 177766 
3511 026132 177756 177756 
3512 026134 177736 177736 
3513 026136 177676 177676 


en aa ae - e = __- 








m 


ae ae frve Ds b> fe 


RRAARR 


iis 


: wee RPOY/S/ 


tey 
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BCTC BUS ADDRESS REGISTER 
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MACY11 27(655) 
FLTINI.P11 te4 BCTC BUS ADDRESS REGISTER 



















Be od ne’ © RRKKKAERKEAAAREREAA LASERS KARA AAA KRAAA RARER ALA AA LHRA HARA KAAE 
; tk T 25 BCTC BUS ADDRESS REGISTER LO-BYTE 
114i +-$-}--Saleadalalalebalabalalahalalahabahalalalabalahalalaialahaialahaiaiaialshalebaiaiaiaialsiaishaiaaiainiel 
164 000004 téT25: SCOPE 
6166 Ole737 000001 odlel12 #1, STIMES ::D0 1 ITERA TION 
3531 026174 012737 000025 017330 MOV aTINO, aeTSTNM  ;THIS SAVES TEST NUMBER 
ss O26202 012777 OOO04O 166546 MOV #CLR, JRHCS2 : CLEAR seuit CONTROLLER 
3534 026210 012706 001000 MOV #STACK, SP RESET STACK. 
3e32 026214 013702 014754 MOV ;R2=RH11 BA ADDRESS. 
3537 Oeb220 010237 O4S44O MOV Ro BORE GADR 
$538 026224 012705 O2b266 MOV #LSTISA, RS :RS=TEST LIST ADDRESS. 
$540 026230 - ooso1e2 LIS: CLR (Re) ;CLEAR RH11 BA REGISTER. 
sete 026232 012537 001124 MOV (RS)+,SGDDAT § ;SGDDAT=S/B. 
3544 026236 113712 001124 11S: | MOVB  $GDDAT, (R2) ;SET BUS ADDRESS REGISTER. 
$545 O2eb2e42 011237 001126 MOV (Re), SBDDAT *READ BUS ADDRESS REGISTER. 
3547 02624 023737 001126 001124 CMP $BDDAT,SGDDAT  ;COMPARE RESULTS. 
3548 O26254 001401 BEQ RiS 


O262e56 104053 ERROR S3 


3552 026260 005715 RIS: . TST (RS) ;AT END OF TEST LIST. 
3853 OQeb2be 001362 BNE bis :NO! 
3554 Oebe64 OO0417 


BR TST26 *NEXT TEST 
3 ;THIS LIST WILL BE USED TO LOAD tHE. LOWER BYTE OF THE BA REGISTER. 
3557 ooo002 istisa: 2 
sai 


MNDEC=2: DIRIH-A, eos 5 é. DSKLS_CON CONTRO ER TST-PT 2 MACYIL 27(655) 30-MAR-76 20:59 PAGE 84 
FLTINI.P1i ere Sus AD REGISTER LO-BYTE : 


sSSRAAAFSSRSSSELSSSSLSRSSLASLSALARLELASAARALESASAIS SL ALARA SSLELS 
IETEST 26 BCTC BUS ADDRESS REGISTER HI-BYTE 
lie RON dei aaa 
V 81, STIMES +00 1 ITERATION 
MOV aTtNO,asTSTNM  : THIS SAVES TEST NUMBER 
MOV BCLR, JRHCS2 :CLEAR RH11 CONTROLLER 
MOV BSTACK, SP RESET STACK. 
014754 MOV RHBA, Re ;R2=RH11 BA ADDRESS. 
o4s440 MOV R2, REGADR 
025436 MOV #LSTI6A,RS ;RS=TEST LIST ADDRESS. 
(R2) ;CLEAR BA REGISTER. 
001124 (RS)+,$GDDAT  § ; SGDDAT=S/B. 
R2 sR@sHI BYTE ADDRESS. 
901124 : $GDDAT, (R2) ;SET BUS ADDRESS REGISTER HI-8YTE. 
R2 ;R2=FULL WORD ADDRESS. 


091126 (R2), SBDDAT ;READ BUS ADDRESS. 
001124 SWAB § $GODAT :ADJUST DATA FOR HI BYTE. 


CO1126 O01124 SBDDAT,SGODAT, ;COMPARE RESULTS. 
R16 ; OKAY 


eMC 7 


3533 
33H 
33s 
38% 
3537 
3598 
3538 


BB 


53 : 
Rib: (RS) ;AT_END OF TEST LIST. 
BNE "NOP 


BR $127 jNEXT TEST 
;THIS LIST WILL BE USED TO LOAD THE UPPER BYTE OF THE BA REGISTER. 
CSTI6A: 2 


BRORReER 


Dasara 
WD NOU £WwrU-O 


BERR 


* 
i 








_ SOU DA Ame? ina 
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FLTINI.P +26 BCTC SUS ADDRESS REGISTER HI-BYTE 





——- = me ee re ne ee ee ee re ee ere ee ene eee 
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FLTINI.P1l tes BCTC BUS ADDRESS REGISTER HI-BYTE 


REM 
a THIS TEST CAUSE AN RH11 INTERRUPT VIA THE SPECTAL COMMAND SEQUENCE 
3583 Bl : STE, SRHCSe. THIS TEST PROVES ONLY THAT THE HARDWARE CAN HANDLE 
3630 N ERRUPT OPE 

: Seen erenrennaeeeennsnineaniensessnnnnssansasannannsassneens 
5  £TE RH11 INTERRUPT TEST 

+ ER 4 nr: 
3635 8 g0g904 +4127: SCOPE 
sab Ole 3 000001 00121 MOV #1,8 TIMES ::00 1 ITERA 
O26 1e737 O0000e7 017 MOV aTTtNO, a8TSTNM tints SAVES et NUMBER 
238 026514 912777 OOOO4O 166234 MOV #CLR, JRHCS2 ‘CLEAR RH11 CONTROLLER 
340 026522 012706 001000 MOV #STACK, SP sSET STACK POINTER. 
3642 026526 014769 MOV RHCS1.R2 ;R2=2RH11 ADDRESS. 
3643 926532 010237 O4S440 MOV R2, REGADR 
3644 026536 001126 CLR DAT ; SBDDAT=WAS. 
se45 O26542 005037 001124 CLR $GDDAT : §GDDAT=S/8. 
3647 0265" 017737 166174 001176 MOV ORPVEC, STMPO .;SAVE RH11 INTERRUPT VECTOR. 
34 026554 012777 Oe6600 166164 MOV 8021, JRPVEC :SET RHII1: INTERRUPT veeyoR TO 021.: 
3650 026562 052712 090100 L21: Is #IE, (R2) sCAUSE INTERRUPT. 
3651 OeSS65 : NOP :WAIT FOR INTERRUPT. 
3652 026570 NOP ; 
33 026572 Oil237 001124 MOV (R2), SGDDAT :SAVE CONTENTS OF REGISTER. 

3655 026576 104054 ERROR 54 





3656 
3657 026600 913777 OC1176 166140 621: 


- 
= 
ao 
<= 


STMPO, IRPVEC sRESTORE RH11 INTERRUPT VECTOR. 


t 
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LTINL.P te? RH11 INTERRUPT TEST 
TEST THAT RESET CAN GENERATE THE SIGNAL CLR L. 


THE PROGRAM SETS THE PORT SELECT BIT .THEN DOES A RESET 
IF THE SIGNAL CLR L WAS GENERATED | THE PORT SELECT BIT WILL CLEAR. 


; HEROES PRELUDES ORR EREEEOSREEROOEEED 


; 30 BCTD CLR L TEST 
©  RESRERERSSSSKSSLSAESESELEEAAESAARERSLSRAAAASSERAKSRSRSRAAALESES 
+$730: SCOPE 


1,871 NES 3:00 1 of TERATION 
NO, a8TSTNM iT T NUMBER 
CLR, dRHCS2 :CLEAR RHI1 CONTROLLER 


RHCS1.Re ona CS1 ADDRESS 
Re. REGADR 
SGODAT ; SGDDAT=S/B8 


eSTACK, SP SET STACK POINTER. 
ePSEL, 'R2) :SET PORT SELECT FLOP. 
:D0 A BUSA INIT. 


001126 (R2), SBDDAT ; SBDDAT=WAS. 
177677 001126 etC<fE> $BD0AT ;SAVE ONLY I.E. BIT. 


COll2e6 O01124 MP SS8ODAT,SGODAT  ;COMPARE RESULTS. 
BE it :NEXT TEST 
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INDEC- 1L-OZRIH-A RPG4/S/& DSKLS CONTROLLER TST-PT 2 
LTINI t30 BCTD LR L TEST 








3690 REM 
3691 SET THE nF FLOP AND READ IT BACK. 












$ Rep yt eeeeea renner peenseneeaeesnnenneneennnecenneneee snes 
3695 ; s KELEKFAAALAASLLARAARAEAARASRAAARARARAASESSSSSSRSSERLALLLLS LELELE 
seas Gseobe Biers? 1 00 trai: nove -D0_1_ITERAT 
335 pees o8 pige3? Bp00s4 peng as MOV tao! TEES THM itHIS SA erro NUMBER 
3000 ;#CHECK TO SEE IF PROGRAM IS RUNNING WITH AN RH70 
3702 O26722 005737 017334 TST aeRH70 TEST FOR RH70 CONTROLLER 
3703 026726 001402 BEQ 30$ IF FLAG = SKIP THIS TEST 
3704 026730 000137 027014 INP —s- TST32 ; JUMP Oe nag? FUT cxeceoneconmnaninnenies 
3705 026734 308: ‘IF FLAG = 0, DO THIS TEST 
3706 026734 012777 OOO04O 166014 MOV #CLR, IRHCS2 ‘CLEAR RH11 CONTROLLER 
3708 O26742 012705 001000 MOV aSTACK, SP ;SET STACK POINTER. 
3709 02674 013702 014756 -  . MOV RHCSe, Re :Re=RH11 CS2 ADDRESS. 
3710 O26752 010237 945440 MOV R2, REGADR 
$711 Geb7S6 Ole7s7 001000 o01124 MOV = SNKF,SGDDAT =, SGDDAT=SB. 
#713 026764 012712 001000 124: MOV #MXF, (R2) sLOAD MXF 
seis 026770 011237 001126 MOV (R2), SBDDAT ; SBODAT=WAS. 
3717 028774 042737 176777 001126 BIC #tC<(MXF>,SBODAT ;SAVE ONLY MXF 








7 
3719 Q27002 023737 OO0lle6 001124 CMP SBODAT , SGDDAT ‘Cen RESULTS 
3720 Oe7010 001401 BEQ ds ;NEXT TEST 













TI 31 
3 
7 
3726 
23 - 
3730 
3731 027014 

027016 012737 
3733 Oe 010737 
3734 
3735 
3736 
3737 27032 005737 
3738 027036 O01 
3739 027040 00013 
3740 27044 
3741 
3742 027044 012777 
3743 
3744 027052 012706 
3745 
3746 027056 013702 
3747 027062 010227 
748 027066 012737 
3750 027074 013712 
3751 027100 oo0240 
3752 927102 
3753 
3754 027104 011237 
3755 027110 042737 
3757 027116 023737 
3758 027124 001401 
3753 O2712e6 194057 
3765 
2761 


001126 
187777 


001126 


165704 


001124 


001126 
001124 


MNDEC-11-DZRJH-A, RPOY/“S”“6 DSKLS CONTROLLER TST-PT 2 
FLTINI.P1l MXF TEST 


BEN 
THE UNTBUS PARITY sige FLOP DIRECTLY VIA A MOV SUPE TO RHCS2 





MACY11 27(6SS) 


SET 
ATTEMPT TO READ IT BACK 


A 
iTest 32 CORB UNIBUS PARITY ERROR SET TEST. 


tETEST 32 


30$: 


L30: 


$7 


CSRB UNIBUS PARITY ERROR SET TEST 
lt I ee cn id ie enue ee 


+4132 


TIMES 
STtho geTSTNM 


TO SEE IF PROGRAM IS RUNNING WITH AN RH70 


a#RH70 
30 

TST33 

#CLR, JRHCS2 
STACK, SP 
RHCS2, Re 

R2, REGADR 
#UPE, SGDDAT 
SGDDAT, (R2) 


(R2) , $BDDAT 
#tC<UPE> , S80DAT 


SBDDAT , SGDDAT 
TST33 





SEQ 0135 
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;:D0 1 ITERATION 
biRos SAVES TEST NUMBER 


IP THIS TEST 
i?gb 2 aes ) 
sIF FLAG = 0, DO THIS TEST 

;CLEAR RH11 CONTROLLER 
;SET STACK POINTER. 
;R2=RHCS2 ADDRESS. 
;$GDDAT=S/B. 
;ATTEMPT TO SET UPE. 


; TEST FOR o% CONTROLLER 
;IF FLAG = 


;SBDDAT=ACTUAL DATA. : 
SAVE ONLY UPE. - 


; COMPARE RESULTS. “\ 
;NEXT TEST 
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INL.P11 +32 CSRB UNIBUS PARITY ERROR SET TEST 


s NM % 
ms fy THE UNIBUS PARITY ERROR FLOP AND ATTEMPT TO CLEAR IT WITH A 
3765 CONTROLLER CLEAR. 


3767 HEHEHE HEHEHE HEE HHEHHEHE HEHEHE HEHE REE EEE 


{ATEST 33 CSRB UNIBUS PARITY ERROR CLEAR TEST Re 
376) +  LKEFLELLKALELAAAALKLRLLA LARA LAA LEAL EALLAAAALEA LALA REL ARAL RALERE 4 
3770 027130 000004 tST33: SCOPE 
$7el Oerise Oie73? go00o1 pole18 MOV TIMES ; 400.1 ITERATION 
3772 027140 012737 000033 017330 HOY STTNO.gATSTNM {HHS SAVES TEST NUMBER 
2773 027146 012777 OO0040 165602 MOV #CLR,@RHCS2 =»; CLEAR RHI1 CONTROLLER 
3775 027154 012706 001000 MOV —-s#STACK, SP ;SET STACK POINTER. 
377? e760 013702 014756 MoV —-RHCS2, Re ;R2=RHCS2 ADDRESS. 


3778 027164 010237 O4S44O MOV 2, REGADR 
3003 927170 005037 001124 CLR SeApAT ; SGCDDAT=S/B. 


3781 027174 012712 O20000 L31: MOY — SUPE, (R2) :SET UNIBUS PARITY ERROR SET. 
358s Beeton | poaSdD NOP . 

027202 O00240 

o27204 012712 oo0040 MOV CLR, (R2) SCONTROLLER CLEAR. 


3787 027210 011237 001126 MOV (Re), SBODAT ;READ STATUS 
sree 027214 O4e737 157777 001126 BIC atC<UPE>,SBODAT ;SAVE ERROR. 





37 

3790 Q2722e2 023737 001126 001124 CMP $BDDAT,SGODAT  ;COMPARE RESULTS. 
3731 027230 001401 BEQ TST34 ;NEXT TEST 

37392 Oe7e32 104057 ERROR 5S? 





+33 





Ii1 
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CSRB UNIBUS PARITY ERROR CLEAR TEST 


a RPG4/S/& DSKLS CONTROLLER TST-PT 2 


3735 
37% 
737 


CRUE 2 


eases 
WONMUI£UIfH-O 


hails 


027334 
027336 


sis 


001126 
177770 001126 


001126 001124 


. REM 
T THE U ECT REGISTER TO DRIVE #7 TS SET RATE_A 
TROLLE R NTT, SE AND cokers THAT THE uNiT Se LEAT REEISTER Te CLEARED. 
= MeRGRRERERURNEUERERENNeRERNESeNNNENReReEmnONEeNREENEE 
TEST 34 CSRB UNIT SELECT CLEAR TEST 
} te at se taigt- ane one ema 
#1, STIMES ;:D0 1 ITERA 
MOV sto QSTSTNM ; THIS SAVES tet NUMBER 
MOV #CLR, QRHCS2 ‘CLEAR RH11 CONTROLLER 
MOV #STACK, SP ;SET STACK POINTER. 
Nov RHCS2, R2 ;R2=CS2 ADDRESS. 
CLR Re, REGADR ; SGDDAT=S/B. 
L34: Hoy BUS4!US2!US1,(R2) ;LOAD RHCS2 DRIVE SELECT 
NOP 
MOV #CLR, (R2) GENERATE CLR. 
MOV (R2), SBDDAT ;READ RHCS2 
BIC #tC<US4!US2!US1>;$BDDAT;SAVE DRIVE SELECT BITS. 
CMP $BDDAT,SGDDAT  ;COMPARE RESULTS. 
BEQ ST3s ‘NEXT TEST 
ERROR 60 






TN : woe RPOW/S6 DSKLS CONTROLLER TST-PT 2 - MACYI1 27(655) 30-NAR-76 20:59 PAGE 92 


t34 CSRB UNIT SELECT CLEAR TEST 





M % 
af} THE _UPE FLOP UNIBUS PARITY ERROR. VERIFY THAT THE SETTING OF (UPE) 
ALSO =T THE TRANSFER ERROR (TRE) FLOP 


Jere nine nenene reap inenenneatentine 


TEST 35 CSRB TRANSFER ERROR (TRE) 
TID a egomarc 
See aue 12737 090001 001212 MOV #1, STIMES ;:D0 1 ITERATION 
027350 012737 000035 017330 MOV #TTNO, a8TSTNM stnTS. SAVES TEST NUMBER 
;#CHECK TO SEE IF PROGRAM IS RUNNING WITH AN RH70 


027355 005737 017334 TST § #RH70 ;TEST FOR RH70 CONTROLLER 
027362 001402 BEQ 30S sIF FLAG = 1, SKIP THIS TEST 

7364 000137 027454 IMP TST36 ; JUMP 10 NEXt TEST wo-s-neeennnnn---n— 
027370 30S: sIF FLAG = 0, DO THIS TEST 


027370 012777 OO0040 165360 MOV #CLR, JRHCS2 ;CLEAR RH11 CONTROLLER 
027376 012706 001000 MOV #STACK, SP ;SET STACK POINTER. 


027402 013702 014756 MOV RHCS2, R2 ;R2=RHCS2 ADDRESS. 
027406 012737 oO40000 001124 MOV #TRE, $GDDAT : $GDDAT=S/B. 
027414 012712 o20000 L3S: MOV SUPE, (R2) ;SET UNIBUS PARITY ERROR. 


027420 013702 014760 MOV. - RHCS1,Re sR2=RHCS! ADDRESS. 
027424 010237 O4S44O MOV Re, REGADR 


30 011237 0011 MOY (R2),$BDDAT ___; READ REGISTER 
34 042737 13 001126 BIC -wtC< TRE, SBODAT ;SAVE TRANSFER ERROR. 


Oe7442 023737 O0li2& O011e4 CMP SBODAT , SGDDAT Het ag 3 RESULTS 
oy! Opa Ot BEQ TST36 ;NEXT TEST 
74 104061 ERROR 61 






















FLTINI.P11 t3s 


014756 
040000 


015140 


013702 014760 
O4S440 


001126 
137777 


37 001126 


009010 


001124 


001126 
001124 


ff" THE NeD BIT NON EXISTANT DRIVE VERIFY THAT THIS SETS THE (TRE) BIT. 


MNDEC-11-DZRJH-A,RPO4/S’”& OSKLS CONTROLLER Bim e 
CSRB TRANSFER ERROR (TRE) - UPE 


MACY11 27(65SS) 
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Te 
CSRB TRANSFER ERROR (TRE) 


ihrest 36 

téT36: SC 
MOV #1, STIMES 
MOV #TTNO, a8TSTNM 
MOV #CLR, ARHCS2 
MOV #STACK, SP 
MOV RHCS2, Re 
MOV 8TRE, SGODAT 
MOV JTOTALAT, RO 
CLR RI 

S36: ROR 
BCS N36 

L36: MOV R1, (Re) 
MOV RHCS1,R2 
MOV R2, REGADR 
MOV (R2) , SBDDAT 
BIC #tC<TRE> , SBDDAT 
CMP SBDDAT, SGDDAT 
BEQ TST37 
ERROR 62 

TST37 
N36: 


a penpemanceer-erepcep maaan rosmseree et 


;:D0 1 ITERATION 
$+Rts SAVES TEST NUMBER 
‘CLEAR RHI1 CONTROLLER 
;SET STACK POINTER. 


;Re=CS2 ADDRESS. 
; SCDDAT=S/B. 


:GET ALL AVAILABLE DRIVES DATA 
sSET NED. 

sR2=RHCS1 ADDRESS. 

sREAD REGISTER. 

:SAVE TRE. 

COMPARE RESULTS. 

:NEXT TEST 


;NEXT TEST 





MNDEC=11-DZRJH-A,RPO4/S/& DSKLS CONTROLLER TST-PT 2 
CSRE TRANSFER ERROR (TRE) NED 


FLTINI.P11 t36 


fore 
ze 
=_ 

Coo 
He 
mur 
PAP 
NN 


asa 


BR 
. 
8 
S 


027644 Ole7le 
027680 012777 
027656 011237 
O2766e 042727 


Seana 


Bets 
263 
fe 
4 
E 


001000 
014760 
O4S440 
001124 
002000 
900040 
001126 
178777 


001126 


165100 


001126 
001124 


MACY11 27(655) 30-MAR-76 20:59 PAGE 94 


REM OK ; 
aft THE pont SELECT FLOP VERIFY THAT WE CAN READ IT BACK. 


; Fi lai -+ t+ ili 
oe KREME RK KHER KELL E ELH EE ER ERE ELE SEEK KE RE LES KE SKE KR SARS LK EE 
t$137: SCOPE 


L4O: 


MOV 
MOV 


CSRA PSEL CLEAR TEST 


#1, STIMES ;:D0 1 ITERATION 
#TTNO.a8TSTNM ;THIS SAVES TEST NUMBER 
#CLR,QRHCS2 . ;CLEAR RHI1 CONTROLLER 


STACK, SP ;SET STACK POINTER. 
RHCS1,R2 ;R2=RHCS1 ADDRESS. 
Re, REGADR 

$GODAT ; SGDDAT=S/B. 

#PSEL, (R2) ;SET P SELECT. 


#CLR, JRHCS2 ;D0 A CONTROLLER CLEAR. 


(R2) , SBDDAT sREAD BACK P SELECT BIT. 
#tC<PSEL> ,SBDDAT;SAVE ONLY PORT SELECT. 


$BDDAT,SGDDAT ;COMPARE RESULTS. 
1 aa ;NEXT TEST 


SEQ 0140 
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FLTINI.P11 +37 CSRA PSEL CLEAR TEST 


-REM  % 
VERIFY nat CONTROLLER CLEAR WILL CLEAR THE COMMAND REGISTER. 


ites WO CORD COMMAND REGISTER CLEAR TESTS 


ATEST 40 


Oo Sg > ear ecana: se gee negate te 
Hl STINES D0 11 TERAT ION 
330 MOV tio aaTSTNM itHIS SAVES TEST NUMBER 
R,@RHCS2  —-; CLEAR RHI1 CONTROLLER 
#STACK, SP ;SET STACK POINTER. 
RHCS1,Re ’  sR@=RHCS1 ADDRESS. 
Re, REGADR 
$GODAT ; SGDDAT=S/B. 
#11, (R2) s ISSUE A DRIVE CLR AND GO. 
164776 #CLR, IRHCS2 ;CONTROLLER CLEAR. 


(R2) , S$BDDAT ;READ COMMAND REGISTER. 
001126 #tC<?>, SBDDAT  ;SAVE ONLY THE COMMAND BITS. 


001124 MP SBDDAT,SGDDAT ;COMPARE RESULTS. 
IBM ;NEXT TEST 


O17 
01 
165030 MOV 





FLTINI 


eae 


t4o 


000004 
012737 
127 


012706 
013702 
010237 
005037 
012737 
012712 
011237 


011237 
042737 


023737 


* 001401 
104066 
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COMMAND REGISTER CLEAR TEST 


000001 
Sead 
00004 


001000 
014760 
O4S440 
001124 
000340 
000011 


001176 


001126 
177770 


001126 


177776 


001126 
001124 


. REM 
Sit 15 SEL So ST A ROR HOT We ADORESS AT DIAEETLY THE Loic 
THis. HIS 1s Oe step ED BY “{oRorn 1 ST HAND INTO IT READING ANOTHER REGISTER 
a 0 HE COMMAND REGISTER TO DETERMINE IF IT CLEARED. 


Peter Gemma tere rte reece tree rete aec 


tETEST 4] CSRB COMMAND REGISTER RESELECT CLEAR T 
CST TSS CSCS CST CSC SSCS OSC CLC CSL SOLS S eC OST SSS C Ce CoC CC OCC CSCS CS SS See 
tST41: SCOPE 
“" MOV TIMES ; 
MOV sar aaTSTNM HITS. SA VES TEST NUMBER 
MOV #CLR, JRHCS2 ‘CLEAR sent CONTROLLER 
MOV #STACK, SP ant STACK POINTER. 
MOV RHCS1,Re ;R2=RHCS1 ADDRESS. 
MOV R2, REGADR 
CLR SGODAT ; SGDDAT=S/B. 
MOV #340, PS ;SET PRIORITY TO #7. 
L42: MOV #11, (R2) s ISSUE A DRIVE CLR AND GO 
"MOV (R2), STMPO ;DO A RESELECT OF THE REGISTER. 


MOV (R2) , SBDDAT ;READ THE COMMAND REGISTER. 
BIC #tC<?>,SBDDAT ;SAVE ONLY THE COMMAND BITS. 


$BDDAT,SGDDAT ;COMPARE RESULTS. 
BEQ TST42 ;NEXT TEST 
ERROR 66 


A 
oO 


0 0- © 0 0 bb 0 pe 
WDNIGMWU £WlUH-O 


555555555 


BEES 


ee 


pets Sane ae tere 


REM  % | 
WERE WE pene. TO SEE IF SETTING (IE) AND (ROY) WILL CAUSE AN INTERRUPT. 





Ble 


LER _TST-PT 2 a7 | gies 30-MAR-76 20:59 PAGE 97 
STER RESELECT CLEAR TEST 


jsenavanassnenevasananssussancncessnssssnesnesussnennensonsseons 
HES CSRB READY AND IE INTERRUPT TEST 
aneeoeenensentansenssnvennssessnensersseenstossensssonesssees 


er eTtho gers ‘ERIS SAVES TEST. NUMBER 
BCLR, JRHC 


MOV R, aR :CLEAR RH11 CONTROLLER 

MOV RHCS1 ;R2=RPCS1 ADDRESS. 

MOV Re 

CLR SBODA ; SBODAT=WAS. 

éLR SGODAT : §GDDAT=S/B. 

MOV ORPVEC $TMPO = ; SAVE _RHI11 INTERRUPT VECTOR. 

MOV 3, JRPVEC :SET RH11 INTERRUPT VECTOR 543 
L432: MOV BSTACK, SP :SET STACK POINTER. 

CLR PS 

B15 SIE!RDY,(R2)  ; THIS WILL CAUSE AN INTERRUPT. 

NOP é: 

MOV (R2), $GDDAT 

ERROR 67 





STMPO, IREVES ;RESTORE RH11 INTERRUPT VECTOR. 
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‘-FLTINI.PLL typ CSRB READY AND IE INTERRUPT TEST 





Wel CAUSING AN INTERRUPT. AT THE COMPLETION OF THE INTESRUPT 
le cr EK 0 THE (IE) BIT CLEARED. 


, eRCOUCeDERREREOHEGROREOERONEONSENEEEDERERORENEEHESESEORCERESES 


qezceubneeees 2° 










TEST 4g CSRB BOES “IE” CLEAR AFTER AN INTERRUPT 
© REPSFESSSSERSSSSSASERASRSSARASASSASERLSLAAEREASRAASLRSSKRKSELHEAES 
030226 tST43: SCOPE 
30 012737 900001 001212 MOV vith NES 4001.1 
% O127 017330 MOV ‘ tho, asTSTNM th S SA Tet NUMBER 
51 164504 MOV R, aRHCS2 : CLEAR RMIT CONTROLLER 
4043 l 014 , MOV RHCS _sR2=RPCS1 ADDRESS. 
eS we ae fe = 
we 1124 CLR ° T=S/8. 
4047 030266 O01 1644S4 001176 MOV DRPVEC,STMPO —«; SAVE. RHI INTERRUPT VECTOR. 
4048 030274 pte335 030324 164444 MOV #044, JRPVEC :SET VECTOR TO 0 
dose 030302 012706 001000 L44: MOV 8STACK, SP sSET STACK POINTER. : 
40S 030306 O0S03? 177776 CLR PS » 
i085 g30312 052712 000100 BIS BIE, (R2) sTHIS WILL CAUSE AN INTERRUPT ‘\ 
ener Sm 
apes 030322 000411 BR E44 :NO INTERRUPT. 
dpe 030324 011237 001126 O44: MOV (R2), SBDDAT READ RHCS1. 
4060 030330 042737 177677 001126 BIC atC<tE> $B0DAT :SAVE ONLY THE “IE™ BIT. 
4065 020936 023737 901126 001124 MP $8DDAT,SGDDAT  ;COMPARE RESULTS. 
4063 030344 001401 BEG R44 : OK! 
4055 03034 104070 E44: ERROR 70 
4067 030350 013777 001178 164370 R44: MOV STMPO.IRPVEC = ; RESTORE RH11 INTERRUPT VECTOR. 
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— 
t43 CSRB BOES “IE" CLEAR AFTER AN INTERRUPT 


NNDEC- 
FLTIN LP ll 
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.REM x | 
HERE WE VERIFY THAT WRITING INTO THE “AS” REGISTER OWILL NOT Cause 
AN (NED) ERROR, 


& 
ord 





sia 







33 REKFSASRASRLASRARKLAKRESSERKSSASASSAASRRAALEKAARRRSLALAERBHAGLAASHS 

49 TEST 44 “as” — TES 
p58 o  BESRERSSRAESRRELPERERKASHSLSK ERA SSRFSLESESERRRZLSRAEBRE ARE RE REES 

7 930356 900004 tST44: SCOPE 
Gok Gareee Gierey SOON GUIRY HATS Hfs SHEREOY armen 
$980 Bose 15238 Te4aee MOV. SCLR gece :CLEAR RH11 CONTROLLER 
4082 030402 012706 001000 MOV 8STACK, SP ;SET STACK POINTER. 
4084 030406 013702 014756 MOV -R2=RH11 CS2 ADDRESS. 
408s 030412 012737 000007 001124 MOV Buses USStUSI., SGDBAT ; SCODAT=S/B. 
408? 030420 013705 9014760 MOV RHCS1,RS sADDRESS OF A DEVICE REGISTER. 
4089 030424 012712 900007 LYS: MOV #US4!US2!US1,(R2);LOAD A NON EXISTANT DEVICE. 
409i 030430 013702 014776 MOV RHAS , R2 ;R2="AS" ADDRESS. 
4033 030434 012712 000377 MOV #377, (R2) s ATTEMPT TO LOAD “AS”. 
4035 030440 005012 CLR (R2) :CLEAR “AS™. 
4097 O30442 01 014756 MOV RHCS2, Re :R2=RH11 CS2 ADDRESS. 
4038 OS0HNE 010237 OHSHHO MCV —s- Re, REGADR 
4100 030452 011237 001126 MOV (R2), SBDDAT : SBDDAT=WAS. 
4101 030455 042737 167770 001126 BIC etC<NED!US4!uS2!US1>,$BDDAT:SAVE NED AND DEVICE SELECTED. 
4103 930464 023737 001126 001124 CMP $8000T, SGOCAT  ;COMPARE RESULTS. 
4194 001401 TST4S ‘NEXT TEST 





039472 
4105 030474 104071 71 
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DIRIHA. TST EXTENDED MEMORY, ORIVE TIMING & SECTOR SELECT TESTS 


4 ? .SBTTL EXTENDED MEMORY, DRIVE TIMING 8 SECTOR SELECT TESTS 
4] 

stit . tiTEST We MAKE CURRENT CYLINDER SO eae 
y th CRREREKSRESSKERLSREKRRAKESHAEASSSLERLHRALESRPLALERLSRRS HES ELSES HSE 
4113 030476 une OPE 

4114 ee MOV ast ACK, SP 

His 017330 MOV 8TTNO, J8TSTNM Hs KTEST NUMBER 

Wiis an 1 164254 aOv Soh ali D1SK ET D 

ur18 papese Os geno pate JSR RO. abNAKECYL a pranast ic chorea SEEK 

4119 OMMAND FOLOWED BY AN INIT 

4ig0 030530 oo0000 9 :THIS SHUOLD CHANGE RHCC TO 0 
4122 

4123 

4124 

41295 

ie 

4128 SSRESEREAPREFESLE RES REYEEPLEPSHES SRLS RAE EE RESUARREHELREKDSS ERE SE 
4 t STEST 46 RHCS1 - BITS 8 AND 9 - EXTENDED ADDR (ALE 8 A 17) 
4131 ;# WRITE CYLINDER 0, FORMAT 16 Guts, PER WORD - 

aiss + peTAe I "The. CORT OA OF Pag Uae TTY poneR AT STER 

ai a IS WILi USE ye x: AND Al7 FEAR 3 168 eats THAN 28K OF MEMORY 
4136 ©  SERELSEFSSSSSESAESSELELESSSASSSSSEAAASSERSSRSRELASLSLAARAELAERED 
ELA 030532 oc0004 tST46: SCOPE 

4139 030534 012706 001900 MOV eSTACK, SP sRESET STACK 

4140 030540 012737 000046 017330 MOV 8TTNO,Q8TSTNM :THIS SAVES TEST NUMBER 

Hae #CHECK TO SEE IF PROGRAM IS RUNNING WITH AN RH70 

4144 030546 905737 017334 TST JeRH70 sTEST FOR RH70 CONTROLLER 

4145 030552 0014 BEQ 30S F FLAG = SKIP THIS TEST 

4146 930554 000137 031064 IMPs TST47 ;JUMP “TO NEX | 2 ae } 
ry 030560 308: :IF FLAG = 0, DO THIS TEST 

4149 7 o4sble2 ; JSR RO, JSCLAREA s CLEAR SIMULATED DISK 

die papses | peusee foro BY ‘FROM 

4151 930566 055302 “WORD  TOLGAP+16 :T0 

Hi5¢ 930570 000000 “WORD «60 :DATA 

41 : ; THESE ARE SETUP FOR DISKLESS USE ONLY 

4iS6 030572 012737 010000 052340 MOV sFMT22, 8CYL;CYLINDER O 

4157 18 BITS PER WORD 


= 


418¢ Q30e04 0837 Desay Re” age 


4160 030610 005037 OSe346 CLR dekEYe ;kKEYe 









OSKLS 


HNDEC 1 -DZRJH-A, RPOY/S-& ¢ 
altst tug RHCS1 - BITS 


DZRJHA 


4187 

4] 

41 

4190 

419 

41 

41 

HE ra pga 

ve Qe Bee ee 

41 1042 

us fares BLE Beice 

‘eto i 00C401 oS52480 
¢ =] 

W503 Osloce De0bS1 

4203 031004 0014 

a i006 Ql ea 001124 

4 1014 O141 1126 

4206 1020 160237 052460 

4207 ps ites 00$737 0151e6 

4208 03103G 00100e 

asia 031032 104037 

4211 1034 o0040 

42le $3 ibse 1 

4213 

4214 . 

4215 031040 9005721 - 

4216 031042 017746 150072 

4217 netted 5740 . 177177 

4218 9231 726: 000200 

4219 031056 pos 

4220 a1 pe8 0053 

42e1 931 001344 


1§: 


ONTROLLER TST-PT 2 Yll 27 
8 AND 9 - EXTENDED ADOR (Al6 


Doub O0RRt CONES BRO HERE NITHOUT ERROR PRINTOUTS, “/ 
:HERDER, HE Ree KARRECTL Me 


;DATA IS TO BE CHECKED. 


Tt 
BNE 


e 
) 


17 


ese. 1 
Ra * JHERWORD 


ae gre Ca 
i 
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BNO SYNC BYTE’ HAVE “GONE BY ; 


i BAVE se, {gccuren? 
; T IF YES 


3G DAT Wes 
iS A_WRITTEN INTO “DISK” 


RROR 
16000 Baa WITH DATA ON DISK 2 










017330 


0S2340 


163602 
163576 


163600 


eo-@we 


We ie oc oe = 


eeee er ee ae ee ae ee ee 






NNOEC-1i-DZRJH-A,RPOY’S“6 OSKLS CONTROLLER TST-PT 2 
ZRIHA. TST 46 RHC BITS S AND 9 - EXTENDED ADDR (Al6 8 A 17 


a ae heed Mee Mee ee re 
4 


: B TRACK Oe 560 HORDS. ee REAGER IS READ TR CORRECTLY, 
ne syne rte ( IReNOSTIC DATE 
GE NOR pra GIVEN FOR 24 BYTES. 
eT TES OF SECTOR CLOCKS ONLY ARE GIVEN. 
THis, T 


a pemenpreeso gaaspeneren nero rt 
47: 


MOV 
MOV 


;#THESE ARE TO SETUP FOR DISKLESS USE 


;* THESE 


JSR 


;#READ & SAVE REGISTERS FOR COMPARISON AFTER SIMULATED *DTE’ 
JSR 
RHWC 
WC 
19. 








JRHCA ‘CYL 
PC, JUCHECKT CHECK KOVR 1 AND OTHERS DON’T 
, CPHALT a ESTING as THE 

aoe 8 T$ 00 = 1 OR OTHERS ore STUCK 2 1 
JSREFOR, ORI > READ HEROER AND DATA = 72 


RO, d#SAVER ;READ IN he ga 





-MAR-76 20:59 PAGE 103 SEG 0149 









MACY11 27( 








DRIVE TIMING E 


SERS AND DIAGNOSTIC 





CTOR Chet UP WHICH SHOULD 





aSTACK sRESET STACK } 
8TTNO, SerSTNM THIS SAVES TEST NUMBER r 

















aFMT22, JBCYL 348 BITS Per WORD 

CYLINDER 0 ‘ 
dsSECOTR :SECT a ’ . 
osKEY] sKEYI = 0 
dsKEYe :KEY2 = 0 
8X ; THIS IS A READ CCMMAND 
RS, a8CRC GO TO CALCULATE CRC 







ARE REGULAR SETUPS 


PC, 8CLDISK ;SETUP GENERAL REGISTERS 
#-260. aRHWC 3256 DATA WORDS, 4 of BOER WORDS 
BREINTO, JRHBA ‘ieee BUFFER 







SECTOR 
ePUTORIECL OOF te a EHR INHIBITED 














INTO C AT O68 1 20n 
: NUMBER REGISTERS TO READ 















SEQ 0150 
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4276 
Wee? s #NOH fe WILL BE GIVEN » EVERYTHING WIth ie oe 

u538 ey yi BLY Y SEC CTOR "stbers iit bE WEEN Hen: qe e: pare 
4280 -#CLOCKS WILL BE G SHOULD BRING SE 

4281 : #WI THOUT Bor fig’ MENS Thban HENCE ’DTE’ W 

4283 031224 012737? 177777 015146 MOV 4-1, QUTESDTE i961 0 re est 

4yo84 O3lese Ole73? 177777 015126 MOV #-1) J#ERFL HIS W kL ING THE READ HEADER “* 
4ogs SAND DATA PROCESS OUT AFTER THE 

4286 “HEADER HAS BEEN CORRECTLY READ 

428g 031240 004737 oS2200 ISR PC, J#COMHD GO’, SEARCH FOR THE SECTOR 

4289 ‘ARB REAG THE HEADER 

4291 031244 017737 163510 001176 SETCK1: MOV JRHCS1, INS TMPO T AD ERRORS 
4292 031252 B4a539 1Baeen 001176 BIT asc, atthe Teer EBA TREC PAL FOND Ont FRR 
4293 031260 001405 BEQ as ‘CONTINUE WITH Tes. If SC’ = ot. (NO ERRORS) 
4294 031262 004737 045374 JSR PC, J¥PUTREG SAVE ALL RE ISTERS AGA IF AN 
4295 t UNDEFINED DATA TRANSE ERROR TH eeep 
4296 031266 104040 ERROR 40 gRERO/WRY | HEADER & DATA ERROR DURING 
4297 031276 000137 031556 IMP TSTSO ’DTE’ TEST - ABORT THE TEST 







4299 031274 8S: HEADER HAS BEEN 

4300 NOM "Eo ries, CLOCKS iit BE GIVE 

4301 :#GAP il aby SYNC 1 TA un ECC 4 BYTES 

4308 GAP 2 > TOLERANCE 28’BYTES, EXTRA 

4304 ae 5 CTOR CL KS BRE BRE 0 VIDED INTO TWO GROUPS 

4 c LOCKS WITH IAGNOSTIC DATA CLOCKS, 
4306 AND S36 SECTOR CLOCKS NT THOUT ANY DIAGNOSTIC DATA CLOCKS. 






4 ; #THIS GIVES 24 SECTOR CLOCKS Maa DIAGNOSTIC DATA CLOCKS 
4310 ;#WHICH EQUALS 3 BYTES OF DATA 







FOR DIAGNOSTIC CLOCKS 





4311 

wis Salers oie7e Sree Sittin APR EBaess 

Wale Ga13i4 Baerio Ot ca Bie | pti oho fee ease ROKR TA CLOCK. 
. : T CLOC 





1$ * BRANCH IF 24 NOT DONE 
4325 | ;#THIS GIVES S36 SECTOR CLOCKS WITHOUT DIAGNOSTIC DATA CLOCKS 






4326 

4327 031344 012701 001030 sLOAD SECTOR CLOCK COUNTER 
4328 031350 052710 000010 5$: Bt anereke aR ;SET SECTOR CLOCK 

4329 031354 042710 000010 IC aMSTCK, aR ;CLEAR SECTOR CLOCK 
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SEQ 0151 
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4330 031360 005301 DEC OCR ; COUNT 
4331 031362 001372 BNE SS sBRANCH IF S36 NOT DONE 








4333 

uy NOW ’DTE’ T ‘ 
re SUGANGE SAVED CRERISTERS TO EXPECTED VALUES 
4337 031364 012737 177400 015026 MOV 

43 rae 1e737 01 74 TE Hoy ie EINidecd 42 #2) at fa 
BG RAG ee A He ar aes 

4342 031422 Ty0000 te BIS sara Ban aa0S1 ; aN ost 

us4a Galuae D12e37 009001 O1eb4D NOV on 1 

4345 031444 Btgs39 eae 3 ptepee MOV BL AH0ST sive VED FDS 






4348 ;#NOW READ & SAVE REGISTERS AGAIN SO THAT COMPARISONS 
4349 ;*CAN BE DONE (USE THE "WRFROM’ SAVE BUFFER THIS TIME) 







4350 

4351 O314Se 004037 046366 JSR RO, J#SAVER ;READ IN SEQUENCE 

4352 031456 014752 RHWC FROM HARDWARE REGISTER 
4353 031460 015220 WRF ROM INTO CORE BUFFER 

ze 0314%6e 000023 19. ;NUMBER OF REGISTERS TO READ 











4356 , -¥FOR RHAS UPPER BYTE 

137 031464 113737 015053 015245 MOVE a@8AS+1,d8WRFROM+25 ;UPPER RHAS 

4359 ;#COMPARE THE HEADER READ 

4361 031472 004037 046570 . JSR RO, J8#COMPAR ; COMPARE 

4362 031476 pe340 CYL :GOOD BUFFER 

4363 031 16264 REINTO -TEST BUFFER 

4364 631502 000004 4. ; NUMBER 

4365 031504 031512 6$ "RETURN FOR ERROR 

4366 031506 031512 6$ : SAME 

4367 031510 O31Si6 7§ “RETURN FOR GOOD COMPARISON 
4368 031512 104010 6S: ERROR 10 jHEADER READ IN DURING THIS TEST IS 






£ 
8 
-_— 
& 
-_ 
uw 
-_ 
£ 
ye] 
pany 
w 
Uv 
Oo 


; RETURN 
031516 7$: ;GO0D COMPARISON, CONTINUE 














4376 ;#COMPARE REGISTERS BEFORE COMMAND WITH REGISTERS AFTER COMMAND 

4378 031516 004037 046570 JSR RO, @ACOMPAR ——_; COMPARE 

4379 03152 015026 : SINETIAL SNAPSHOT BUFFER (CHANGED) | 
4380 031524 015220 ; WRFROM = ;TEST SNAPSHOT BUFFER : 

4381 03158 og008e 18. ;NUMBER OF REGISTERS AY 
» 1530 031536 2s SRETURN FOR ERROR ft 
4383 031532 031536 2s ; SAME 





1 
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9 uate par eimaianetmantitatece: 
T SO DRIVE TIMING ERROR 

A WRITE DATA_COMMAND IS STARTED ON CYLINDER 0, SECTOR 

0, 256 WORDS. 


TRACK 0, 
IN CORRECTLY, 
IS GI 


Sebi tene | 
KS, “DIAGNOSTIC 


OCK TES, 
THEN 536 BYTES OF SECTOR CLOCKS ONLY, ARI: GIVEN. 


THIS IS TO TO BRING SECTOR PULSE UP 
WHICH SHOULD SET “DRIVE TIMING ERROR” - 'DTE’ 
GHHEHHBE HEHEHE EEHHE HEH HHHHEHHB HEHE HEHEHE HEHEHE 


+éTs0: SCOPE 
MOV T STACK 
017330 MoV so TNG sdarsmom fits SAVES TEST NUMBER 
s#THESE ARE TO SETUP FOR’DISKLESS USE 
052340 MOV #FMT22,d8CYL § ;16 BITS PER WORD 
“CYLINDER O 
aaSECOTR 
DaKEY] 


dekEYe Ye = 
#-1, d8X THIS IS FOR WRITE DATA COMMAND 
RS, SECRC GO TO CALCULATE CRC 


ee eee ee ee 


Wewe et eseeweeee neat ee as ee 


ARE REGULAR SETUPS & CHECKS 


PC Q¥CLDISK ;SETUP GENERAL REGISTERS 
ee 256 DATA WORDS 
of, ARYA ist ea aaa OF BUFFER 


saa ray BIT SPER WORD 
‘EOE CORRECTION 1 INHIBITED 


BOS SCHECKT 
, CPHALT 
DRWRIDAT, IRL t URI TE DATA = 
;*#READ & SAVE REGISTERS FOR COMPARISON AFTER SIMULATED *DTE’ 
JSR RO, J#SAVER ;READ REGISTERS IN SEQUENCE 
RHWC FROM HARDWARE RE 
INTO CORE BUFFER LOCATION 


HALT 





a on ee ee Se 
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4451 031716 000023 19. ;NUMBER OF REGISTERS TO READ 


ae ow ee = eee eres ee — een ee eases .2 eee: 
. 
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DZRJHA. TST tsa 


720 012737 
726 012737 


DRIVE TIMING ERROR 


177777 
177777 
os2200 
163014 
100000 
045374 


032302 


6$: 


1$: 


4$: 


S$: 


ERROR 40 ; THERE 


;#NOW GO’ WILL BE GIVEN, EVERYTHING WILL BE TREATED 
; ENORMALLY FOR THE HEADE ADER. WHEN IT IS TIME TO WRITE 
ONLY SECTOR CLOCKS WILL BE GIVEN, NO DIAGNOSTIC DATA 
CLOCKS W WILL BE GIVEN. THIS SHOULD BRING SECTOR PULSE HIGH 
#WITHOUT PUTTING READ DOWN, HENCE "DTE’ WILL CoME IP 


MOV #-1, JHTESOTE i$ET OTE TEST _— 
MOV 1! J#ERFLGS THIS WILL BRING THE READ HEADER 


AND DATA PROCESS OUT AFTER THE 
HEADER HAS BEEN CORRECTLY READ 


JSR PC, a#COMHD ;ISSUE ’GO’, SEARCH FOR SECTOR, 


*READ HEADER AND DATA. 


: MOV QRHCS1,aeSTMPO ;READ CS1 TO CHECK FOR READ ERRORS 
BIT uSC, a¥STMPO TEST FOR “SPECIAL in, * SC’ 
BEQ 6$ SCONTINUE TESTING IF NO ERR 
JSR PC, @d#PUTREG READ & SAVE REGISTERS AGAIN IF UNDE- 


sFINED fen HAS OCCURRED 
WAS A READ/WRITE HEADER ERROR 
; DURING ’DTE’ TEST SETUP 


JMP TSTS1 ABORT THE TEST 


;NOW THE HEADER HAS a. READ 
*#560 SECTOR CLOCKS WILL BE GIVEN - 

; xGAP 11 BYTES, SYNC 1 BYTE, DATA S12, ECC 4 BYTES 
>#GAP 2 BYTES, TOLERANCE 28 BYTES, EXTRA 2 


;#THESE S60 SECTOR CLOCKS ARE DIVIDED INTO TWO GROUPS 
#24 SECTOR CLOCKS WITH NORMAL DIAGNOSTIC DATA CLOCKS 
;*AND 536 SECTOR CLOCKS WITHOUT ANY DIAGNOSTIC DATA CLOCKS 


;*THIS GIVES 24 SECTOR CLOCKS WITH DIAGNOSTIC DATA CLOCKS 


MOV #24. Rl ;LOAD SECTOR CLOCK COUNTER 
MOV a#RHMR, RO GET RHMR ADDRESS 

MOV #DMD, JRO :SET BIAGNOST IC MODE 

BIS #MSTCKIMCLK,9RO ;SET SECTOR CLOCK AND DATA cLo CK 

BIC #MSTCKIMCLK, JRO ; ;CLEAR SECTOR CLOCK AND DATA CLOCK 

MOV #7. Re ;LOAD COUNTER FOR DIAGNOSTIC DATA CLOCKS 
BIS #MCLK, ARO T CLOCK (DATA 

BIC #MCLK; JRO LEAR CLOCK CATA) 

DEC R2 ae 

BNE 48 “BRANCH IF 7 NOT DONE 

NE 1$ “BRANCH IF 24 NOT DONE 


;*THIS GIVES S36 SECTOR CLOCKS WITHOUT DIAGNOSTIC DATA CLOCKS 


;LOAD SECTOR CLOCK COUNTER 
ays merck ta0 SET SECTOR CLOCK ; 
IC #MSTCK; JRO CLEAR SECTOR CLOCK 


reais tsp FECY Ss. Bal 


ssee8 Z 


dwidiannanay 
0 0 0 = 0 bo pe 
00 IWU £ fue: 


Bee ELA AAMC! 





932954 
032056 


Rake RRR R 


Bi 


032206 
032214 


995301 
00132 


0i773? 


162726 


C4S366 


015053 


046570 


SKLS CONTR 
VE TIMING 


C1S066 


ininin 
apt 


ae Reus 


nese 


AOoo0o0000 2000 


016311 
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DEC Rl 
BNE S$ 


; COUNT 
BRANCH IF S36 NOT CONE 


;#ECC PATTERN REGISTER IS NOT CHECKE 


MOV DRHECE, IBEC2 


;®NOW "DTE’ SHOULD BE SET, CHANGE SAVED REGISTERS TO EXPECTED VALUES 


TST a8RH70 
SEQ me 


;RHEC2 IS NOT CHECKED 


;CHECK FOR RH70 CONTROLLER 
;SKIP RH70 CODE AND 00 RH11 IF NOT 


Moy D RHWC 
MOV tia RoHS 14 4.#2>, ieeRe SAVED RHBA 
ecs2 SAVED RHC 


81S #IR!OR 
SR 8s 


Se 
;SKIP NEXT RH11 CODE 


7S: MOV SAVED RHWC 
MOV SUAFROM TS. #2), ‘gga .SAVED RHGA 
BIC #IR, aac -SAVED RHCS2 
BIS wR’ aacSe :SAVED RHCSe 
QS: BIS WSC!TRE,a¥CS1 — ; SAVED RHCS1 
BIS #OTE, J8ER1 : RHER1 
MOV aDENVL DMD GaMR : SAVED RHMR 
BIS #A ee akos: ; SAVE RHDS} 
v #109 #LA ; RHL 
MOV #1 :SAVED RHDST 
MOV SHATTERT, aeaS  ;SAVED RHAS 


;#NOW READ & SAVE REGISTERS AGAIN SO THAT COMPARISONS 
;CAN BE DONE (USING ’WRFROM’ BUFFER THIS TIME) 


JSR RO, J#SAVER 
RHWC 
a 


;#FOR RHAS UPPER BYTE 


pet IN SEQUENCE 
; FROM 


REGISTER 
INTO CORE BUFFER LOCATION 
;NUMBER OF REGISTERS TO READ 


MOVE @8AS+1,asREINTO+2S ;UPPER RHAS 


; #COMPARE CHANGED REGISTER SNAPSHOT BEFORE COMMAND WITH 


;*#SNAPSHOT AFTER COMMAND 
16 RO, J¥COMPAR 


ee ee eee ee 





RETURN FOR GOOD COMPARISON 


; COMPARE 
CHANGED INITIAL ta BUFFER 
;SNAPSHORT BUFFER AFTER COMMAND 


NUMBER OF REGISTERS. 0 COMPARE 
;RETURN FOR ERROR 
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DERINA. TST to. «CDRIVE TIMING ERROR yy. 


4561 g3eebe 013705 oS2460 23: MOV 8ERWORD, RS sGETTING READY 70, TO INDEX 
3366 ADD SRS : DOUBLE 

W563 O3s2270 O16537 O147SO O4s4HO MOV RHIC-2(RS), QaREGADR. jF RArSILING. REGISTER 
4 932276 104091 ERROR 


i GHaNGe AFTER FORCING 
HSE ;*DTE’ ERROR 
4567 032300 000207 RTS PC RETURN ’ 


4568 
4569 932302 3$: ;G00D, REGISTERS OK - GO ON TO NEXT TEST 














NNDEC=i 


Eddi 
Bane 


ssessesenesssessesses 


0-2 2 0+ bb 2 bo 
WONCOW CWO 








DZRIHA. TST 


tso 


000004 
016706 
Ole73 


012737 


i-DZRJH-A,RPGY/S’& DSKLS CONTROLLER TST-PT 2 
DRIVE TIMING ERROR 


017330 


055476 


OSSS36 


162362 
162356 


162369 
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h-5-5-5-1-4-delelabalalalal-1-4-bph-el-t-irt-tetsel-t-t-4-4-talaolelelelelelalalaleleleleleleiaieleleleleileldieleidie 
T Si DRIVE TIMING ERROR 


TOvCYLINDER ©, SECTOR O, TRACK 0, 286. WORDS. 

AFTER SECTOR IS FOUND (THE SECTOR FOUND FLOP IS HIGH), 

OR SECTOR CLOCKS. Are "ofven TILE secton” as IS HIGH. 
ag paneer mammaregyr pene 


C 
MOV aSTAC sRESET STACK 
MOV STING DETSTNM :THIS SAVES TEST NUMBER 


;¥THESE ARE TO SET UP FOR DISKLESS USE ONLY 
MOV aFMT22, JBWCYL ;FORMAT 22216 BITWORDS AND 





© Me OO i aie ee oe Pon 
—4 


=. ee estes ee ae ee ee 












R 
cLR QaWKEY i “KEY I= 
CLR DaWKEYe : 
MOV #256. ,d8FNWORD :256 DATAWORDS 
JSR RS, a8CRC :GO TO CALCULATE CRC 
WCYL 
GCRC 
;# THESE ARE REGULAR SETUPS & CHECKS 
JSR PC, I8CLDISK ; SETUP GENERAL REGISTERS 
MOV #-260. 256 DATA WORDS 8 4 HEADER WORDS 
MOV SWRFROM, JRHBA :STAR ING ADDRESS OF BUFFER 
CLR JRHDST : TRACK = 0 
‘SECTOR = 0 
MOV #FMT22"ECI, IRHOF -16 BITS PER WORD 
sECC CORRECTION INHIBITED 
CLR QRHCA a 
JSR PC, J8CHECKT 2 CK OVA, ROY,DPR,DRY = 1 AND OTHERS DON'T 
TYPE  ,CPHALT NOT ¢ TINUE TESTING IF ANY OF THE 
RBOVE ITs. OON ONT = 1 OR OTHERS ARE STUCK 2 1 
MALT 
MOV JeWRIFOR, RL iste HEADER AND DATA = 62 


;#READ 8 SAVE REGISTERS FOR COMPARISON AFTER SIMULATED ‘DTE* 
JSR RO, J#SAVER 4 IN SEQUENCE 
RHWC 





M HARDWARE REGIS Ms 
we tN 70 CORE BUFFER LOCATION 
19. ;NUMBER OF REGISTERS TO READ 
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DZRIHA. TST ts: DRIVE TIMING ERROR © 



















46> sn “60 WILL BE GIVEN. E EVERYTHING WILL z oy REATED 
dese BE 184 . NOD IC DATA 
4626 L BE GIVEN. THIS SHOULD BRING SECTOR PULSE HIGH 
wee? :RCLOCKS a nani “READ” DOWN, HENCE "OTE’ WILL COME UP. 
44 012737 177777 O15146 MOV #-1, 28TESD ET OTE TE 
4E56 p35 ie2 bigs ? 177777 pete MOV #-1) QRERFL Ths WTLL BRI ING THE READ HEADER 
4631 “AND DATA PROCESS OUT AFTER THE 
tose ‘HEADER HAS BEEN CORRECTLY READ 
to34 032460 0904737 055322 JSR PC, J#COMWHD sve G0’, SEARCH FOR SECTOR, 
: HEADER AND DATA. 
we 032464 017737 162270 001176 SETCK3: MOV DRHCS1,2eSTMPO READ cs TO CHECK FOR. ERRORS DURING WRITE 
4638 0320472 032737 100000 O01176 BIT #SC, aS TMPO ; TEST "SPECIAL C ONDI TION" - °SC’ 
032500 001405 BEQ y ET NUE TEST IF NO ERROR (’SC’ = 0) 
4640 032502 004737 045374 JSR PC, JePUTREG ; READ & SAVE REGISTERS AGAIN IF ERROR 
4641 032506 104040 ERROR 40 : THERE READ/WRITE HEADER ERROR 
ug42 sDURING “OTE TEST SETUP 
4643 032516 000137 032742 IMP TSTSe ABORT THE TEST AT THAT POINT 






4644 
me 032514 4§: ;NOW SECTOR HAS BEEN FOUND OK 
4647 ;#609 SECTOR CLOCKS WILL BE GIVEN, 







4648 #39 BYTES FOR SECTOR GAP, 
4643 ia BYTE FOR HEADER SYNC, 
4650 *8 BYTES FOR HEADER, 
451 :#GAP 11 BYTES, SYNC l VIE, DATA Sle acs 4 BYTES 
Wobe :#GAP 2 BYTES, TOLERANCE 28 BYTES, EXTRA 3 S 
4654 
4655 s#THIS GIVES 609 SECTOR CLOCKS WITHOUT DIAGNOSTIC DATA CLOCKS 
4657 032514 012701 O01!41 MOV #609. Ri ;LOAD SECTOR CLOCK COUNTER 

032520 052710 000010 S$: BIS sMSTCK, JRO ie SECTOR CLOCK 
4659 fees Readt 000010 TCK; ARO EAR SECTOR CLOCK 

l 5 BNE S$ fu IF S36 NOT DONE 








ST CEXPECTED VALUES = SET, CHANGE SAVED REGISTERS 


932534 TST aeRH70 ;CHECK FOR RH70 CONTROLLER 
032540 001407 BEQ 6$ SKIP RH70 CODE AND DO RHL1 IF NOT 
032542 012737 177404 015026 MOV D RHWC 
022550 012737 015240 015030 MOV APRONS aC #2>, ah -SAVED RHBA 
032556 000406 BR 7§ SKIP NEXT RH11 CODE 
032560 177477 O1S026 ES: MOY asc -SAVED RHWC 

S66 012737 015426 015030 MOV SRP ROMS ES. #2>,98BA :SAVYED RHBA 


MVRUMML SAA SALA Aa At 
e 
S 


me ae = 
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tS) 
y 'T 
WEos Baseas baseae d00100 ie 7S: BIS St ts — ay 
10 052737 000200 015032 1S a 
46 036 BIS ton.3 guER 3A 
_ MOV #401 






S taTalEA a#0S1 +3 B Re 
3 t3 a oe Reber 
2p29 "MOV BLAH +3 pte 


;#NOW READ & SAVE REGISTERS AGAIN SO THAT COMPARISONS CAN BE DONE 
















32662 00407 06366 JSR _—-RO, aRSAVER ;BEAD IN. SEQUENCE 
wE90 ieee REINTO CNY) CORE BUFFER PoCaTl 7 
483 Bases3 SAbeS3 ch HINTQ, CORE RG R Scal 
4E93 :#FOR RHAS UPPER BYTE 
494 032674 113737 015053 016311 HOVE — ¥AS+1, JMREINTO+25 ;UPPER RHAS 
uE9e :¥COMPARE CHANGED REGISTER SNAPSHOT BEFORE COMMAND 
8a | 7 S#WITH REGISTER SNAPSHOT AFTER COMMAND 
W699 032702 OC4027 046570 JSR -RO,aaCOMPAR —._ 
4700 032708 O1S0e uc EO ONGED REGISTER SNAPSHOT 
4702 i> pobaee age ’ s PR OF REEISTERS 70 COMPARE 
4 71 ) 33. NUMBER OF REGIS! 
W704 032716 030722 5g : SAME 
4705 032720 032742 3s 'RETURN FOR GOOD COMPARISON 








4 032722 013705 052460 25: MOV JSERWORD,RS s GETTING READY TO INDEX 
W708 b35958 Queese 016537 O147S50 oO4S4HO NOY Rue 2(R5), aarechor FAILING REGISTER 
4716 passer 9 Ag337 ' ERROR 1 PHPROPER RESISTER 
4711 CHANGE AFTER FORCING 
4712 ; OTE’ ERROR 

iets 032740 900207 - ATs PC * RETURN 





4715 032742 38: ;GO0D, REGISTERS COMPARE OK 
G0 ON TO THE NEXT TEST . 
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OZRIHA. TST ts2 “SECTOR SELECTION 


weue 


3 EE EEE SEE Ee 
ST Se SECTOR SELECTION 


EAEH SECTOR ON TRACK SER 18 WRITTEN INTO. 
Tiga Horo, 's Hono a ry rN HOR, “ge anos 
(DATA), 1 SYNC WORD, SECTOR. NUMBER 


THE WRITTEN DATA IS CHECKED IN MEMORY 
Pill ec of ea cry ec ree ae 


téts2 


MOV STAC ;RESET STACK 
017230 MOV 8TTNO CST STNM :THIS SAVES TEST NUMBER 
JSR - PC,aecLDISK SETUP GENERAL REGISTERS & CLEAR 
015150 MOV #22.,98TAGDTE 22 SECTORS 
et ‘THIS TEST REPEATS 
ITSELF 22 TIMES 


;#THE FOLLOWING INITIALIZES FOR SECTOR 0 
daSS3+e2 ;HEADER (SECTOR) 
asi Fs ;HEADER (KEY) 

; HEADER (KEYe) 
DATA. (SECTOR) 
TOR (SIMULATE 


4 
ml * 


OK OO i OK er lures 


esec ee as es es esas 


SK) 
) 
) 


: SEC D OI 
:KEYL (SIMULATED DISK 
#ol.’aesSlu+e =: KEY2’ (SIMULATED DISK 
aass15+2 SECTOR (RHOST) 


SIMULATED DISK AREA 
012700 OS4160 is: aSECGAP, RO : POINTER 
912701 o00460 #304. RI COUNTER 

: (RO) + CLEAR SIMULATED DISK AREA 


weeny ; C Rl 
poraze 25 


WRITE FROM BUFFER 
012700 015220 #WRFROM, RO 


’ : HEADER 
012720 010000 MOV eFMT22, (RO)+ sromme 16 BITS PER WORD 
012720 ocooDD : MOV #0, (RO)+ SECTOR TO VARY 
012720 900025 : MOV wel. , (RO)+ KEY } TO VARY 
012720 000025 : MOY #21. ;(RO)+ tk Y2 TO VARY 


;#DATA IN WRITE FROM BUFFER ALTHOUGH THIS IS DATA AND NOT 















DZRIHA. TST 










4 

ee 

e74 
4775 

4776 

4777 
4778 033106 
4779 O3311le 
4780 fastte 
4781 118 
4782 0331 
W7e4 033150 
wes 33134 
4786 033136 
4787 033140 
4788 033144 
4789 033146 
4790 
ee 033150 
4793 0331S¢ 
4794 033156 
4 160 
v7 162 
4798 033164 
4200 933170 
“01 G33174 
4802 176 
4803 
4804 
4805 
4e0? 033212 
4808 OQ33216 
4809 
4810 
4811 
ais 
4813 033222 
4814 033226 
4815 33530 
HE 0332 
481 

4818 

4819 

4820 033234 
4821 

é 

4653 

4824 033256 
4825 033264 


ee 





ts2 


jon | os | = ] 8 j=] 
Sa ho 
rT be 

N ze 
He 


005029 
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SECTOR SELECTION 


6$: 


$S7: 


9S: 


$510: 


118: 
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;#HEADER, THE SECTOR WITH SYNC BYTES WILL BE GIVEN AS DATA. 


*DATA IS - 19 WORDS OF ZEROS - SYNC WORDS, 4 HEADER WORDS 
#1 CRC WORD, S WORDS OF ZEROS, 1 SYNC WORD, 100 ZEROS 
:#(DATA), 1 SYNC WORD, 70 SECTOR NUMBER TC VARY 


#19. RS : COUNTER 

(RO)+ 19 ZEROS 

RS ; COUN 

6$ :19 DONE? 

DBRSYNC, (RO)+ SYNC = 14400 

#FMT22, (RO)+ s CYLINDER 0 

#0, (ROS+ -SECTOR TO VARY 

(RO)+ 

(RO)+ 

RS, daCRC ;CALCULATE CRC FOR ABOVE 4 WORDS 
SO *4 WORDS START FROM HERE : a 

WRFROM+60 :PUT CRC HERE v2 

(RO)+ s INCREMENT RO 
#5.,RS 

(ROS+ ;5 WORDS OF ZEROS 

; COUNT 

g :BRANCH IF 5 NOT DONE 

DBRSYNC,(RO)+  ;SYNC = 14400 

#100. ,RS 

(R0)+ ;100 WORDS OF ZEROS 

95 

JBRSYNC, (RO}+  ;SYNC = 14400 

#70. 25 

80, (RO+ sSECTOR TO VARY 

$S10 

REST OF 256 WORDS THAT IS S4 WORDS OF ZEROS 

#54. RS 

(RO}+ 

RS 

118 


ARE TO BE SET UP FOR DISKLESS USE ONLY 

#FMT22,38WCYL ;FORMAT = 16 BIT WORDS 
4 YL INDER = 

#0, JSWSECTR SECTOR TO VARY 

nel. , QHUKEV } 

#21. Q8WKEYe — :KEY2 TO VARY 

#202: ,aeFNWORD 202 DATA WORDS 
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. TST ts2 SESTOR SELECTION 


047102 } RS, d#CRC ;CALCULATE CRC 
WY ;FIRST W 


ARE REGULAR SETUPS 


77400 161442 z DATA, 4 HEADER 
472398 161436 M thE ROM, aR ial S’ ADDRESS 
000000 161440 SSIS: SECTOR 70 VARY 
015174 161426 MOV a0, aris JRHCS1 : T READY TO DO 

ITE HEADER AND DATA 

*WITH 62 FUNCTION CODE IN RHCS1 
010000 161430 #FMT22,9RHOF 316 BITS PER WORD FORMAT 
161426 JRHCA : CYLINDE 


015126 JeERFLGS CLEAR ERROR FLAG 
045730 J PC, JSCHECKT s CHECK _DVA, ROY, DPR, D 
. 005124 :CANNOT CONTINUE T 


, CPHALT 
‘ABOVE BITS DON’T 
*STOP THE TEST 


055322 PC, a#COMWHD s ISSUE ’GO’, COUNT SEC CLOCKS, 
: WRITE afiEADER AND DATA 
015126 TST D#ERFLGS ale ERRORS OCCURRED ? 


1 AND OTHERS DON’T 
ir ANY OF THE 


tSTI 
= 1 THERS ARE STUCK 2 1 


TING 
OR 
TOR 


TSTS3 EXIT IF YES 
046120 PC, d8CHECKE once THAT DVA,RDY,OPR,DRY = 1 
005124 , CPHALT : CANNOT CONTINUE IF’ THEY DON’T 
HALT : STOP THE TEST AND RESTART PROGRAM 
*NOW cones “DISK” BUFFER WITH “REINTO” BUFFER 
COMPAR ; CHECK 
oo) BEE 
; S Aa rene 
en 
URN POINT FD FOR ERROR BOER 


NT FOR ERROR ky 
RETURN FOR GOOD COMPARISON 


046570 


- oe 
mr ooo ™~ 


EMENTS ARE TO CHANGE THE ABOVE SET UP 
XT SECTOR 
s HEADER (SECTOR) 
SECTOR) 


bp (SIMULATED DISK) 
;KEYL (SIMULATED pIsK) 


OQOQOeqaee -4 
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DZRJHA. TST ts2 SECTOR SELECTION 


a EH Bae ee eS 
pee wea emp oer Lae ve 


WEBS et 090402 BR TSTS3 L_DONE - ST 
Jase 033512 000137 9033044 18: asSSl 30" BACK TO next “steToR 


SEQ 0164 





4883 
4889 
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OZRIHA. TST BATA TRANSFER TESTS USING ECC : 


.SBTTL DATA TRANSFER TESTS USING ECC 


0 gage ae aera eetaemareat tamtcecnctetieneste 
T $3 WRITE ECC TEST 1 


THIS 1S IS A WRITE ECC TEST 

ITE CYLINDERO, FORMAT 16 BITS PER WORD 

TRACK iM LOR’ 1, KEYS 0, NUMBER OF WORDS 256 

OF ALL ZEROS. 

ee eT ee eee 
‘ #STACK, SP ;RESET STACK 


017330 MOV #TTNO,O8TSTNM  ;THIS SAVES TEST NUMBER 
aSEC RO POINTER 


ooo oO 


COUNTER 
SFILL SIMULATER DISK WITH ONES 


1$§ 
Pe, A¥CLDISK ;THIS IS USED TO SET GENERAL REGISTERS 
ARE FOR ECC TEST ONLY 
015144 #-1, dsTSECC OTEBR ie AN ECC TEST 


aePOSITI RROR POSITION COUNTER 

050400 JaNCODE OaNCOUNT N-CODE COUNTER 
050412 MOV JBHARDER, @ 
- T RAT 
PEGG HIGH ORDER TO BE GENERATED 


CLEAR DATA ENVELOPE CLOCK COUNT 
a#ZCODE ;CLEAR LEADING ZEROS CLOCK COUNT 


ARE TO BE SETUP FOR DISKLESS USE ONLY 
OSS476 aFMT22, J#WCYL ;FORMATe2=16B1T WORDS AND 


oSSS00 MOV #1, d8WSECTR + TRACK=0, ‘SECTOR=1 
oe 


aa 
055536 nese. YS eFNWORD 1256 DATA WORDS 
aecRc GO TO CALCULATE CRC 


ARE REGULAR SETUPS 


#-260.,SRHWC  ;256 DATA WORDS 4 HEADER WORDS 
SURFROM. RO ;THESE TWO INSTRUCTIONS GETS 
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010077 161050 RO, JRHBA ;ADOR. OF WRFROM INTO RO AND 
sBUS ADDRESS REGISTER 
012720 010000 aFNTe2, (RO)+ ; FORMAT=16 BIT WORDS 


NDER=' 
012720 o00001 : MOV #1, (RO)+ : TRACK=0, “SECTOR=1, KEYS=0 
(RO)+ ;KEY 1=0 
005020 *KEY2= 
012705 OO0400 . . : COUNTER 
720 O00000 " : :MOVE ALL ZEROS FOR DATA 


001374 . B ;BRANCH IF DATA NOT COMPLETE 
012777 000001 161022 :TRACK=0 SECTOR=1 


004737 045730 PC, JUCHECKT ;CHECK DVA, RDY, DPR DRY =1 Ato. OTHERS DON’T 
104400 , CPHALT CANNOT CONTINUE TES TING IF ANY OF THE . 

, ‘ABOVE BITS DON’T = 1 OR OT MER ARE STUCK a1 
ooo000 , “STOP THE TEST 


013711 QeWRIFOR, OR1 ;GET READY FOR WRITE HEADER AND 
DATA WITH in RHCS1 

005037 C O#ERFLGS CLEAR ERR 

pierre 010000 R aFMT2e, JRHOF gE ORAT Bl Tal ie BIT WORDS) 

004737 055322 JSR PC, d8COMWHD ;WRITE HEADER AND DATA 


Don hue Spt ate ae re jo Na ERROR PRINTOUTS 
ALL HEADER ON DISK 


is eras ONLY a i 10 10.8 CHECK Re SEE ET Ttey ane 


30-MAR-76 20:59 PAGE 120 . SEO 0166 


rst O#ERFLGS ;HAS ANY ERRORS OCCURED? 
;IF WRITE ERROR OCCURS ECC IS NOT CHECKED 
;BRANCH IF YES 


BNE TSTS4 3 


;*COMPARE SOFTWARE GENERATED ECC WITH THAT GENERATED BY HARDWARE 
055256 cn eae emer ; COMPARE yi ECC WITH HARDWARE ECC 


G 
31 OW ORDER ECC_IN ERROR 
BR 7$ BR ANCH TO CONTINU 
OSS260 6$: OGECCe, DHWECCe; ; COMPARE SOFTWARE ECC WITH HARDWARE ECC 
BE 7$ ;BRANCH IF GOOD 
31 ;HIGH ORDER ECC IN ERROR 


PC, JUCHECKE ;CHECK THAT DVA,RDY,DPR,DRY = 1 
, CPHALT *CANNOT CONTINUE IF’ THEY DON’T 
‘STOP THE TEST AND RESTART PROGRAM 


ue iy 
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DZRJHA. TST ts3 WRITE ECC TEST 1 


4398 :#FILL “REINTO" BUFFER WITH EXPECTED DATA 
5000 O340S0 004037 Oo4Sb12 ISR RO, J#CLAREA sFILL REINTO BUFFER 
5001 O34054 016264 NTO : FROM 
S002 os4Ss 017262 REINTO+<255.#2> ;TO 
( $003 034060 000000 .WORD 0 :DATA 
S005 o34062 013737 050370 017264 MOV DRGECC, IWREINTO+<256. #2); FILL ECCL 
S008 034070 013737 050372 017266 MOV DHCECCS. IHRE INTO+(257. ¥2> FILL ECC 
004 045612 JSR RO SaCLARER FILL RESt 
S008 034102 017270 . RE INTO+<258. ¥2) : FROM 
5009 104 917324 - REINTO+<272. #2) : 
5010 106 o00000 9 : DATA 
Se : ’ 
013 034110 005037 015126 CLR DKERFLGS ;CLEAR ERROR FLAG 
5015S | ; 
S016 :#NOW COMPARE “DISK” .BUFFER WITH “REINTO” 
S018 034114 004037 046570 JSR RO, J8COMPAR ; CHECK 
5019 034126 016264 REINTO :GOOD BUFFER 
5020 O34le2 O54eS6 DISK TEST BUFFER 
8021 034124 oo0402 258. ?NUMBER OF WORDS CHECKED 
SOe2 034126 034134 Ug "RETURN POINT FOR ERROR HEADER 
S023 034130 034140 S$ RETURN POINT FOR ERROR DATA 
S025 034132 oO34144 TSTSY sRETURN FOR GOOD COMPARISON 
S027 034134 104007 4S: ERROR 7 sREAD ERROR 10 NEXT 
5028 034136 000207 ~ RTS PC "RETURN TO COMPARE 
S029 034140 104010 S$: ERROR 10 *WORD NOS 1 TO 256 ARE 
ep3 Bat : NOS 257 AND 258 
5032 ; ARE ECC WHICH ARE CHECKED 
5033 : WOR! NOS 259 
5034 1S DATA GAP 
03S ; WORD NOS 260 TO 273 
6036 "ARE TOLERANCE GAP 
5037 o34142 000207 RTS PC “RETURN TC COMPARE 
Be 
5040 
5041 
5042 


ee ee ee; - = —- 
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DZRIHA. TST tS3 WRITE ECC TEST 


; a ee ee he a en ane 
TEST 54 READ ECC ENABLED 1 


: THIS I C RE TA TEST 
it AGERE RR Pa 
: GOOD DATA USED IS 256 WORDS OF 0 

: COMMAND IS GIVEN FOR CYLINDER O FORMAT 16 BITS PER WORD 
: TRACK 0, SECTOR 0 KEYS O READ HEADER AND DATA 


1 uae aa capa pame naae tates eR eg 


o00004 tétsy: Sco 
012706 MOV #STACK, SP sRESET STACK 


012737 MOV STTNO,O#TSTNM ;THIS SAVES TEST NUMBER 


SETUP FOR WHAT IS TO BE READ 
HEADER CRC IS RESTORED FROM A SUBROUTINE 


;DATA TO BE READ 
ok : COUNTER 

sISK :START OF SIMULATED DISK DATA 

SP), ‘80 me Rove IN DATA ON TO SIMULATED DISK 


: BRANCH IF 256 NOT COMPLETE- 
;UNDO -(SP) 


(SP) 
(Ro) (RO)+ 110% OVER THE TWO ECC WORDS 


15. ,R5 
714 TOLERANCE GAP 
(RO)+ :CLEAR DATA GAP, AND 
: TOLERANC 
2 *BRANCH IF NOT COMPLETE 


PC, HF ILLEC ; INSERT THE TWO ECC WORDS ON THE DISK 
IN THE CORRECT PLACE 
} , #THESE ARE FOR ECC TEST ONLY 
012737 177777 MOV #-1, J¥TSECC ;THIS IS AN ECC TEST 
CLR aePOsITI “CLEAR ERROR POSITION COUNTER 


JBNCODE, BNCOUNT’ ; TEMPORARY 
SHHARDER, JSHADTMP * . TEMPORAR 


Spa 


d#2C0 ite PEADING EROS LOCK COUNT 


;#THESE ARE TO SETUP FOR DISKLESS USE ONLY 
MOV sFMT22, daCYL 316 BITS PER WORD 








~ 


6->-b— pp —- pe 


SA nied 


SFAESOASSBUFRLOR= SBGBVER POW B ow Ven co Se Lot oe 
wr 


Taltaltal tartar talealtalealeal tale eal ealearea tal ealea barista tales eal tales tala tal areal eal eases taltaltal al tallaltallaltalial tala) 
0 0 = 0-2 b= 02 0 = b= b= 2 0 0 bb 0 0 0 =F 0 = Be 9 = 2 2 bb 2 be 2 bo 9 = 2 bo Be be 0 b= 0 Bo fo 2 8 Bb he 


4 
SO C3446e 





ee 


Li-DIRIH-A eee S. gsc LER TST-PT 2 MACY11 27(65S) 30-MAR-76 20:59 PAGE 123 : SES 0169 
it Rend Exc ENRGLED 18 7 | 


SS 





160366 
16264 160362 
000000 


cre fuses 
cere ee 


180352 


Re 
44 
2 


O0O~--O0 


005737 015126 


Bore? sans 








Sa D, FORMAT 1& SITS 


MQ COTR+1 Ge 
MOV Sh CTOR O 
MOV reye = 
MOV 





ae stHES. 1S. BREAD. CORMAND 
ish alae mit HF, Za CULATE eRe 
WICRC 


;#THESE ARE REGULAR SETUPS 


PC, J#CLOISK ;SETUP GENERAL REGISTERS 
MOV #-256.-4. aRHWC 3256. DATA 4 HEADER 
MOV SREINTO *5AtEA :STARTING ADDRESS OF READ SUtFER 
MOVB  80,-(SP "IN LOWER BYTE GET SECT 
MOVB 80, 1(5P) :GET TRACK IN HIGHER BYTE 
MOV (SP)+. @QRHOST ; /SECTOR IN RHDS 
MOV aFMT22, 16 BITS PER WORD 


CLR © @RHCA {CYLINOER 0 | 
SR PC, JeCHECKT sCHECK DVA, RDY = 1 AND OTHERS DON’T 
: CANNOT CONTINUE TESTING tr ANY OF THE - 


YPE —_, CPHALT 

ai BEOVE BITS DON'T = 1 OR OTHERS ARE STUCK 2 1 
MOY —BOREFOR, ORI = _s READ HEADER AND DATR=72 

FoR Pet aecGrHo oes HEADER AND. mt DATA 


war coe oe AD ERRORS THEN 
‘Etc WILL NOT BE CHECKED 


:#IF THE PROGRAM COMES BACK HERE WITHOUT ERROR P PRINTOUTS 
seERON THe come ROUTINE THA HAT T MEANS S SECTOR GAP GAP. 
; serve ep MR as GONE BY AND eres WERE CORRECTLY 
: ADER AND DATA ARE T0 BE CHECKED. — 
iain CHECKING READ DATA THE WRITE FROM BUFFER 
WRFROM” IS FILLED WITH EXPECTED DATA AND 
ONS ARE MADE 







 SCOMPARIS 
TST  . Q8ERFLGS RNY ERRORS ALREADY THERE 
BNE TSTSS BRANCH 

JSR PC, J8PUTREG : SAVE HEGTST ERS 

TST aeeR} :NO ERRORS SHOULD BE SET 















6-- b— 9 » = BH 


DUPRE oho Owe eee 


Be 


o 
(Vo) 


CUTOUT UU UT UU In UU UU UT UT UT UT Un UT UT UU UTI UT UU UI IU UI UU UIT IU sires 


ob & = + = 6 b— b= bP = 0 2 8 0 0 0 = be bh Pb = Fb bb 2 be pp pe 


BBIRR LG BSB VRRZGH KH SIs IataZIn-s 


Be 


5 





ite pm? RPOY’S.'6 OSKLS 
READ 


8 
3 


as: 


Ss 


fo 
=o 


8 
#2 


UU 


000000 
000400 
000000 


ES Ta TST-PT 2 
ECC ENABLED 


160254 
160246 


000901 


O4eS70 


6S: 


7$: 
8$: 


3$: 
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UE ETRE Sl 
idea ett = 


GET PATTERN REGISTER 


MACY11 27(655) 
Faron $8 


MOV dsGECC1 ,-(SP) 
(SP) 


SIC #174060, *KEEP ONLY 11 BITS 

CMP x sphECe icorrene PATTERN REGISTER 

BEQ 

ERROR :11 BITS OF THE 32 BIT ECC REGISTER INCORRECT 
:#ADD 16 MAINTENANCE CLOCKS TO 

#BRING EBL DOWN 

MOV #16. ,RO - COUNTER 

BIS #MCLK, JRHMR :SET CLOCK 

BIC SHCLK, RAM CLEAR CLOCK 

BNE 'BRANCH IF 16 CLOCKS NOT DONE 


8$ 
PC, d8CHECKE 


JSR : CHECK THAT BT OVA, ROY ROY, FR DRY 
TYPE , CPHAL T 
M 


seTOP THE TEST AND raestant oPROGRAM 


ROM :GETTING READY TO FILL EXPECTED DATA 
MOV. = aQ!FMTee, (RO)+ CYLINDER 0 , 
MOVE 80, -(SP) *IN LOWER BYTE GET SECTOR 
MOVB  80.1(5P) ert IN HIGHER BYTE 
MOV (SP)+. (RO)+ :GET TRACK/SECTOR IN BUFFER 
MOV . #0, (RO)+ KEY1 IN BUFF 
MOV #0; (RO)+ :KEYe IN BUFF 
MOV. #26.,R1 :DATA WORD COUNTE 
MOV #0, Re DATA 
MOV R2’ (RO)+ :DATA INTO BUFFER 
DEC Ri : COUNT 
BNE 3$ :BRANCH IF 256 NOT DONE 
CLR JSERFLGS :CLEAR ERROR FLAG 
JSR SAVE REGISTERS 


PC, J#PUTREG 


;#NOW READ DATA BUFFER WILL BE CHECKED 


JSR RO,JSCOMPAR ===; CHECK 
KRFROM :G00D BUFFER 

RE INTO :TEST BUFFER 

44256. NUMBER OF WORDS. CHECKED 

4S SRETURN POINT FOR ERROR HEADER 
5s SRETURN POINT FOR ERROR DATA 
TSTSS ;RETURN FOR GOOD COMPARISON 











en _—- & OSKLS yl A TST-PT 4 
READ ECC ENABLED 1 


MACY11 27(655) 


HES 


o34660 0002097 


ee 


(IN£LITU-O 
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;READ NEXT ERROR 
;R TURN TO Ba 
‘A 1 104 


ARE 
;HEADER Wo ROS 
:5 TO0-260 ARE DATA WORDS 
; RETURN TO “COMPAR” 


ee re ee es ee eee 
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NNDEC=i1-DZRJH-A,RPC4/S.& DSKLS CONTROLLER TST-PT 2 
DZRIHA. TST tsy READ ECC ENABLED 1 








e31 ; ee ee ee ee dee er ee oe 
ei : 4TE READ ECC ENABLED 18 

$220 i THIS S18 AN Ec READ DATA TEST 

eee i Pa A CORRECTAGLE ERROR YS INGE 15 INSERTED IN BIT POSITION 32 

5204 :# EORRARD IS GIVEN FOR CYLINOER 0 FORMAT 16 BITS PER WORD 
bec % TRACK 0, SECTOR 0 KEYS O READ HEADER AND DATA 

5227 © SLERFSKERELSFSKSREASKASKELSKERSLAELELAAAAAEASSLHLAAERERERAASELEE 
S228 034662 900004 térss: 

S209 034664 Ole706 001000 MOV STACK, SP sRESET STACK 







S231 034670 012737 O0000SS 017330 MOV STTNO,d8TSTNM ;THIS SAVES TEST NUMBER 










5234 ;#SETUP FOR WHAT IS TO BE READ 

e236 :#HEADER CRC IS RESTORED FROM A SUBROUTINE 

S237 034676 O12 oo0000 me #0,-(SP) sDATA TO BE READ 

5238 034702 pier ae 000409 MOV #256. ,RS : COUNTER 

sg erie Gey as, Bay ERENRe FRE I ORIENTED SIRULRIED ox 
2540 Reet paeSee DEC ge ‘ COUNT 

So42 034716 001375 BNE 1$ BRANCH, IF 256 NOT COMPLETE 
S243 TST (SP)+ sUNDQ o¢ 

coy 7 7 ae CMP (RO)+, (RO)+ 0 eR THe TWO ECC WORDS 
Se4S 034724 O1e70S 000017 MOV #15.,° RS it 4P ATA 

S246 TOLERANCE GAP 

S247 034730 005020 2s: CLR (RO)+ ‘Lear DATA GAP, AND 

5248 732 005305 DEC RS : TOLERANCE 

E24 734 001375 2 “BRANCH IF NOT COMPLETE 







034736 004737 OS11E4 JSR PC, d#FILLEC ; INSERT ECC IN PROPER PLACE ON DISK 







se ;#THESE ARE FOR ECC TEST ONLY 
e5er paures B1ara? SOON BeOdTs MOV corsa, Teneo SPER, ERROR COUNTER 


035000 OSO406 asDATENV aL ERR DB DATA ENVELOPE ft 
Se6S 035004 005037 050410 CLR d#ZC00E ;CLEAR LEADING ZEROS CL ck GUNT 





;#THESE ARE TO SETUP FOR DISKLESS USE ONLY 












NNDEC- 11 -02RJH-A 
DZRIHA tss 










ERT OR SR Se SRA TERE ES 






035070 012737 
012737 
035104 004737 
035110 Q12777 
035116 012777 
035124 112746 
035130 Ai7e6 
$301 035136 Ole6 
§302 035142 012777 
$303 
5304 
$305 
$306 035150 005077 
£307 
eae 035154 004737 
035160 104400 
$310 
ate 035164 000000 
2315 035166 013711 
$314 935172 005037 
$315 035176 004737 
S3lé 
e312 
ig 
§319 
5320 
§3el 





uy 
Pore 
wr 





012737 


118737 


RPO4/S/6 OSKLS CONTR 


READ ECC ENABLED 
010000 





100000 


0S4260 


C3S2Se 


157634 
1$7630 
009001 
157620 


"yesh 2 
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eFMT22, aNCYL 16 BITS PER WORD 
RO, FORMAT 16 BITS 
00, QUSECOTRY1 i ehAy 
$0’ 98K Y SECTOR : 
a ey se 
omen 5 of RE 9 Coie 
ERC 


— 
Fs acrc Fo CALCULATE 


s#THIS IS TO INSERT ERROR ; 
"THE DISK DATA IS IN LOCATION STARTING FROM ’DISK’ 
:#THE POSITION OF THE ERROR CAN BE CHANGED BY CHANGING 
: ¥THIS MOVE 
MOV © #100000, JeDISK+2 ;FORCE ERROR ON BIT NUMBER 32 
:$0 ERROR POSITION REGISTER WILL SHOW 
MOV #22. , 98S SFeceat POSITION REG. 
;#THESE ARE REGULAR SETUPS 
JSR PC, 8CLDISK ;SETUP GENERAL REGISTERS 
MOV #-255.-4. ORHWC :256. DATA 4 HEADE 
MOV #REINTO,JRHBA  ;START SS OF READ BUFFER 
MOVB 5 =(SP3 *IN LOWER BYTE GET SEC 
MOVB #0. 1 (SP) :GET TRACK N HIGHER BYTE 
MOV (Sh) QRHOST > TRACK/SECTOR IN RHDS 
MOV MT22, aR :16 BITS PER WORD 
“ECC CORRECTION NOT INHIBIT 
"BECAUSE ECC IS NOT GOING 
>TO BE CHECKED 
CLR @RHCA “CYLINDER O 
JSR PC, JSCHECKT sCHECK DVA,RDY,DPR,DRY = 1 AND OTHERS DON'T 
TYPE ,CPHALT :CANNOT CONTINUE TESTING IF ANY OF THE 
‘ABOVE BITS DON’T = 1 OR OTHERS ARE STUCK 2 1 
HALT :STOP THE TEST 
MOV D#REFOR, ORL ;READ HEADER AND DATA=72 
CLR DKERFLGS CLEAR ERROR FLAG 
SR PC, J8COMHD 3 READ HEADER AND DATA 
ya RE ARE READ ERRORS THEN 
CC WILL NOT BE CHECKED 
:#IF THE PROGRAM COMES BACK HERE WITHOUT ERROR PRINTOUTS 
FROM THE “COMHD™ ROUTI enna MEANS SECTOR GAP, 
t4#FIRST SYNC, HEADER Q 


HEADER GAP AND 
*#SYNC BYTE HAVE GONE iy Oe B Sends a WERE CORRECTLY 








Ue OZRJH- “A, RPOY/S’& DSKLS CONTROLLER TST-PT 2 
HA. TS tss READ ECC ENABLED 18 


; #DETECTE 


MACY11 27(655)~ 


30-MAR-76 20:59 PAGE 128 


tAREADER BND DATA ARE ~ BE ane ED. 


sHIN ene td DATA THE 
IS Bee ETH EXPECTED DATA AND 


#°WREROM™ 
? ¥COMPARTSONS ARE 


JsERFLGS 
Pe SePUTREG 
Bote OBERT 


015126 


Te8800 015036 


RC, J8ECORR 


PC, J#CHECKE 
, CPHALT 


sorrmiee, ORO) 


WRITE FROM BUFFER 


s ANY ERRORS ALREADY THERE - 


Save BATA CHECK ERROR SHOULD BE SET 


sBRANCH IF YES 
96 BIT ECC REGISTER SHOULD BE NON 


ONLY 11 OF THE 32 BITS CAN BE SEEN 
sIN GISTER 


N THE PATERN REGI 

OCK SHOULD BE SET IN RHERL 
;GET PATTERN REGISTER 

;KEEP ONLY t BITS 

;COMPARE PATTERN REGISTER 


; BRANCH 
11 BITS OF THE 32 BIT ECC REGISTER INCORRECT 


;G0 TO ECC CORRECTION PROCESS 
sBPECT Os hk REG. WHEN CORRECTION 


;CHECK THAT DVA ROY, DPR DRY = 1 
scan I Ys ON’T 


FRESTAR PROGRAM 
READY TO FILL EXPECTED DATA 
ie ieee BYTE Gey secTOR 
GET TRACK IN HIGHER BYTE 
am Tack SECTOR IN BUFFER 
sKEVe IN BUFFER 
;DATA WORD COUNTER 


DATA INTO BUFFER 
*BRANCH IF 256 NOT DONE | 


;#ONLY GOOD DATA HAS BEEN PUT IN a 


"#NOW THE INSERTED ERROR WILL BE 
#100000, SRMAF RON (5%) 


100000 Mov 


asERFLGS 


005037 015126 CLR 
JSR PC, d#PUTREG 


004737 045374 


T_IN 
; INSERTED ERROR 


;CLEAR ERROR FLAG 
SAVE REGISTERS 


SEQ 0174 


















C-11-DZRJH-A,RPOY/S/6 DSKLS CONTROLLER TST-PT 2 
DZRJHA. TST tss READ ECC ENABLED 18 


$378 ;*NOW READ DATA BUFFER WILL BE CHECKED 
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50 035356 004037 046570 JSR RO, J#COMPAR ; CHE™” 
1 03536e 015220 WRF ROM ;G00D ‘uErER 
$382 035264 016¢64 REINTO store ur 
5383 035366 090404 4+256. KED 
p32370 p2378 df fait URN PO NT POR ERROR HEADER 
5 RETURN POINT FOR ERROR DATA 
eae 035374 9035406 TSTS6 ;RETURN FOR GOOD COMPARISON 
aie GSaa7R 104904 4$: ERROR 4Y ;READ NEXT ERROR 
400 900207 RTS PC RETURN TO “COMPAR” 
Sie 035402 i04005 S$: ERROR 5 ;HORD NOS TO 4 ARE 
;S TO 260 ARE DATA WORDS 





3 
S334 O35404% 000207 sRETURN TO “COMPAR” 





NNDEC-11-DZRJH-A RPO4/S’& DSKLS CONTROLLER TST-PT 2 MACYL1 27(655) 30-MAR-76 20:59 PAGE 130 SEQ 0176 
DZRJHA. TST tss READ ECC ENABLED 1B 


7 imate I Er neenentmmareninontatntaaaes 
T S6 READ ECC ENABLED IC - 


IS AN ECC READ DATA TEST 


NAB 
RTs. INSERTED IN BIT POSITION 21 THRU 32 
USED IS 256 WORDS OF 0 
arrat 15.6 VEN FOR gy Ine O FORMAT 16 BITS PER WORD 
CTOR O KEYS 0 READ HEADER AND DAT 


ee senpsggessenpteneystnseneiensoesaapeteoteae 
"MOV #STACK, SP sRESET STACK 
017230 MOV BTTNO,d#TSTNM ;THIS SAVES TEST NUMBER 
SETUP FOR WHAT IS TO BE READ 
HEADER CRC IS RESTORED FROM A SUBROUTINE 
#0,-(SP) sDATA TO BE READ 
: COUNTER 


#256. ,R5 
#01SK’RO :START OF SIMULATED DISK DATA 
(SP), tRO)+ pet IN DATA ON TO SIMULATED DISK 


OUNT 
BRANCH IF 256 NOT COMPLETE 


1§ 
(SP)+ “UNDO =(SP 
(RO)+, (RO)+ ; JUMP OVER THE TWO ECC WORDS 
#15.,R5 1 DATA GAP 

ity TOLERANCE GAP 
(RO)+ :CLEAR DATA GAP, AND 
RS “TOLERANCE GAP 
2 BRANCH IF NOT COMPLETE 


S4 
S4 
S4 
54. 
S4 

4 


PORES 


5 
5 
S4 


PC, d#FILLEC ; INSERT THE TWO ark WORDS ON THE DISK 
IN THE CORRECT PLACE 


ARE FOR ECC TEST ONLY 


O1S144 #-1, a8TSECC sTHIS IS AN ECC TEST 

asPOSITI :CLEAR ERROR POSITION COUNTER 
050400 JBNCODE DENCOUNT | sTEMPORARY N-CODE COUNTER 
o5041e MOV JBHARDER, aJ8HADTMP 


H wit TQ BE GENERATED 
CLEAR DATA ENVELOPE CLOCK COUNT 
CLEAR LEADING ZEROS CLOCK COUNT 


;#THESE ARE TO SETUP FOR DISKLESS USE ONLY 
010000 MOV #FMT22,aN"CYL 316 BITS PER WORD 
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OZRJHA. TST tS6 READ ECC ENABLED IC 





Atal O, FORMAT 16 BITS 
MOVB #0, ‘BESECOTRO 
MOVB #0, J#SECOTR jSECTOR 0 






- ;NO. OF DATA WORDS 
CLR d8X sTHIS IS A READ COMMAND 
JSR RS, d#CRC G0 TO CALCULATE CRC 






;¥THIS IS TO INSERT ERROR 
es ;#THE DISK DATA IS_IN LOCATION STARTING FROM ’DISK’ 
saTHE | POSITION OF THE ERROR CAN BE CHANGED BY CHANGING 







S MOVE 
012737 177760 O0S4260 hav" #177760,d80ISK+2 _;FORCE ERROR ON BIT NUMBER 21 THRU 32 
i$ ERROR POSITION REGISTER WILL SHOW 
012737 010040 035776 MOV #4128. ,d#88$ ;INSERT POSITION REG. 








;#THESE ARE REGULAR SETUPS 






004737 045674 ISR PC, J8CLDISK ;SETUP GENERAL REGISTERS 

012777 177374 157110 MOV #-256.-4. ,JRHWC 256. DATA 4 HEADER WORDS 
012777 b16364 157104 MOV #REINTO, RHBA :STARTING ADDRESS OF READ BUFFER 
112746 000000 MOVB a0, 736} SIN LOWER BYTE GET SECTOR 
112766 000000 000001 MOVB (SP) T TRACK-IN HIGHER VTE 

012677 157076 MOV (SB) JRHOST : TRACK/SECTOR IN 

012777 O10000 157074 MOV #FMT22, IRHOF 316 S PER 








I 
ING 











C CC IS NOT GO 
fc Be CHECKED 
005077 157072 CLR QRHCA YLINDER 
004737 045730 ISR PC, J#CHECKT CHECK” BVA Y,OPR,DRY = 1 AND OTHERS DON’T 
104400 005124 TYPE _, CPHALT OAT TESTING IF ANY OF THE 
‘ABOVE Tate ale = 1 OR OT HERS ARE STUCK 2 1 
HALT : STOP THE 
013711 015200 MOV D#REFOR, IR] *READ HEADER AND DATA=72 
015126 CLR IHERFLGS : CLEAR HERROR FLAG 
004737 052200 JSR PC, DeCOMHD : READ HEADER AND DATA 





AE TH ARE READ ERRORS THEN 
ce WILL NOT CHECKED 






NNDEC-11-DZRJH-A,RPG4/S’6 DSKLS CONTROLLER TST-PT 2 
TST ts6 READ ECC ENABLED IC 


DZRJHA 


eee ae ees 


AR RIAR 
WONMWUILCWUHO 


AAA ald 


f 


. $$32 
$533 


737 015126 


005 
03673 001106 
734 004737 045374 
022737 100000 


13746 050370 
042716 174000 
022627 


015066 


03577e 004037 OS10le 
000000 


004737 045374 


036004 022737 1C0i00 


004737 046120 
005124 


015220 


012700 

012720 010000 
112746 000000 
112766 000000 


000000 
012720 000000 
012701 000400 


015036 


015036 


000001 


6S: 


7$: 
8$: 


9S: 


;#IF T 
s HERON 
#FIRST SYNC 


MACY11 27(655) 30-MAR-76 20:59 PAGE 132 


PROGRAM COMES BACK_HERE WITHOUT ERROR PRINTOUTS 
HE “COMHD” ROUTINE wel. MEANS SECTOR GAP, 
HEADER GAP AND’ 


HEADER 
teSYNC BYTE hale Son GONE BY AND ets Le CORRECTLY 
: #DETECTED 


; HEADER 


ARE TO BE CHECKED. 


AND DATA 
; XIN CHECKING READ DATA THE WRITE FROM BUFFER 
; #°WREROM" IS FILLED WITH EXPECTED DATA AND 


COMPARISONS ARE 
TST Q¥ERFLGS NY ERRORS ALREADY THERE 
TSTS7 BR ANCH 
JSR PC, JHPUTREG “SAVE RE st S 
CHP a0Ck, JERI ; ONL NLY DATA CHECK ERROR SHOULD BE SET 
ERROR i328 ECC REGISTER SHOULD BE NON 
ONLY 11 OF THE 32 BITS CAN SE SEEN 
, > IN THE PATERN REGISTER 
*DCK SHOULD BE SET IN RHERI 
MOV Q8GECC1,-(SP) GET PATTERN REGISTER 
BIC #174000; (SP) KEEP ONLY 11 BITS 
CMP (SP)+, JKEC2 ; COMPARE PattERN REGISTER- 
BEQ 73.~SC*# : BRANCH 
ERROR 32 11 BITS OF THE 32 BIT ECC REGISTER INCORRECT 
ISR RO, 2¥ECORR GO TO ECC CORRECTION PROCESS 
. WORD “EXPECTED POSITION REG. WHEN CORRECTION 
:IS COMPLETE 
JSR PC, JHPUTREG ; SAVE REGISTERS 
CMP #OCK'ECH, J#ER1 ;WITH ERRORS INSERTED IN BIT POSITION 21 
ae in Tu $e HARD ERROR BIT SHOULD SET . 
ERROR 36 WITH ERROR INSERTED IN BIT POSITION 21 THRU 
| 32 ECH SHOULD SET 
JSR PC, ¥CHECKE ;CHECK THAT DVA,RDY,DPR,DRY = 
TYPE ,CPHALT : CANNOT CONTSNGE Tr THEY bon’ T 
HALT :STOP THE TEST BND. RESTART PROGRAM 
MOV #WRFROM, RO :GETTING READY TO FILL EXPECTED DATA 
MOV ag! FiiTee, (RO)+ CYLINDER 0 
MOVE #0, -(SP) *IN LOWER BYTE GET SECTOR 
MOVB 80,1 (5P) :GET TRACK IN HIGHER BYTE 
MOV (SP)+. (RO)+ :GET TRACK/SECTOR IN BUFFER 
MOV #0, (RO)+ *KEY1 IN 
MOV #0; (RO)+ sKEY 5 IN BUrrER 
MOV #256. ,R1 :DATA WORD COUNTER 


SEQ 0178 


MNDEC-11-DZRJH-A,RPO4/S/“6 DSKLS CONTROLLER TST-PT 2 MACY1L1 27(655) 30-MAR-76 20:59 PAGE 135 SEQ 0181 
OZRJHA. TST tsb READ ECC ENABLED IC 


ssse 
5599 EER KAAARARAA KARR AAA RARER K REAL AA AKER AAA RARE RRA KARL ALKA RARER KES 
3 eT TEST 57 WRITE ECC TEST 2 
ab :% THIS IS A WRITE ECC TEST 

5693 * x WRITE CYLINDER 0, FORMAT 16 BITS PER WORD 
sSo4 x TRACK 0, SECTOR |, KEYS 0, NUMBER OF WORDS 256 
5595 1% OF ALL ONES. 

_ $897 i © LKEKARERAKAARAK RHA A RA AAA KARA SEARLES SRA RHA A ARRAS SHAR AKASH AA EKKE 
2238 036150 oo0004 +8157: SCOPE 
$99 036152 012706 001000 MOV #STACK, SP RESET STACK 
5601 636156 012737 000057 017330 MOV #TTNO,daTSTNM ;THIS SAVES TEST NUMBER 
56 036164 012700 OS4160 MOV #SECGAP, RO ‘POINTER 

170 012701 OO00460 MOV #304. ,Ri : COUNTER 
S604 036174 005020 1S: CLR (RO)+ *CLEAR SIMULATED DISK AREA 
036176 1 DEC Ri 

5605 036200 001375 BNE 1$ 
S607 036202 004737 045674 ISR PC, CLDISK ;THIS IS USED TO SET GENERAL REGISTERS 
S603 s¥THESE ARE FOR ECC TEST ONLY 

S611 012737 177777, 015144 MOV 1, aRTSECC ;THIS IS AN ECC TEST 
5612 036214 CLR SePOStti *CLEAR ERROR POSITION COUNTER 
5613 036220 Ie 050376 oS0400 MOV StNcooE JBNCOUNT’ ; TEMPORARY N-CODE COUNTER 
5614 O36e26 013737 OS0404 O50412 MOV HARDER, J#HADTMP ’: TEMPORARY HARD ERROR COUNTER 
5615 036234 ~ 050370 CLR oecee Cl ECC LOW ORDER 19 BE GENERATED 
5616 #036240 050372 CLR JHGECCE "ECC HIGH ORDER TO BE GENERATED 
5617 036244 Riise OS0406 CLR -. a@#DATENV :CLEAR DATA ENVELOPE CLOCK COUNT 
618 036250 005037 O50410 CLR  a#ZCODE CLEAR LEADING ZEROS CLOCK COUNT 
5620 
ce 
bes ;*THESE ARE TO BE SETUP FOR DISKLESS USE ONLY 
bes 036254 012737 010000 055476 MOV #FMT22, IBWCYL sFORWOT22= 16817 WORDS AND 
Bese 036262 012737 000001 ossso0 MOV #1 QHHSECTR :TRACK=0, SECTOR=1 
5628 036670 005037 os5S02 CLR gwhkEY KEY sKEY1=0 
Besa ne B39 ? aaa 055536 MOV a. EYE A ENWORD ieee DATA WORDS 
5631 036306 004537 047102 ISR S, J#CRC GO TO CALCULATE CRC 
S632 036312 055476 WwCYL | ; 
bb33 036314 055506 GCRC 
5635 ;*THESE ARE REGULAR SETUPS 
5637 036316 012777 177374 156426 MOV #-260.,9RHWC ;256 DATA WORDS 4 HEADER WORDS 
5638 036324 012700 015220 MOV SURE ROR RO *THESE TWO INSTRUCTIONS GETS 
5639 036330 010077 156420 MOY 0, JRHBA ;ADOR. OF WRFROM INTO RO AND 
5640 "BUS ADDRESS REGISTER 
S641 036334 012720 o10000 MOV #FMT22,(RO)+ ;FORMAT=16 BIT WORDS 


Se - ° eo 






: 
é 


=i 


>: 
’ 
—« 


éé £0 


ts? 





000091 
os 
8 li fe ‘ 
4 00006: 
aP23 0363 005124 
Ses 036402 
38 036404 015174 
een 410 1$1 
seee eai4 515008 
036422 156344 
sete 036426 055322 
Bere 
ots, 
ebe8 
epee 036432 005737 diSle6 
5672 036438 901056 
& 
Bere 
5576 
apr? 036440 Te 059370 
Bers Gsevs6 1OsGsl 
S680 9364Se2 pee 
5681 036454 3737 059372 
Speke 036462 901401 
S683 36464 
S684 
568s 
5686 036 
S687 036 7 046120 
cos 


PRIH-8, RPOY-S-6 ie Bs 


CONTROLLER TST-PT 2. 


TEST 


assess 


OSS260 65: 


73: 
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Vv #1, (RO}+ TanoKeD, Ra CECTOR=1. KEYS=0 
CLR (ROQ)¢ irae 
CLR (RO)+ K Ye= 
V iC T 


;MOVE ALL ONES FOR DATA 





3$ s BRANCH IF DATA NOT COMPLETE 
MOV #1, IRHOST RACK=0 SECTOR=1 
ISR PC, JBCHECKT : CHECK ve ROY, OPR,ORY = = AN OTHERS DON’T 
TYPE  ,CPHALT CONTINUE TESTING ANY OF T 
i EBOVE Bite aie THERS GRE STUCK 3 1 
HALT :STOP THE TEST 


MOV SeWRIFOR, dR) ;GET READY FOR WRITE HEADER AND 
DATA WI IN RHCS1 


TH 

CLR JSERFLG ;CLEAR ERROR FLAG 

MOV arniee, SRHOF FORMAT BiT=1 (16 BIT WORDS: 
CLR CYLINDER =0 

JSR ae SSCOMMHD WRITE HEADER AND DATA 


;#IF THE PROGRAM or aie a WITHOUT ERROR PRINTOUTS 
;#FROM THE “COMWHD” ROUTINE THAT MEANS HEADER ON DISK 
TA IS TO BE CHECKED 9 25 IF THEY ARE 


i415, GOOD Sigs Bio URL 
DATA GAP AND TOLERANCE GAP 10 SEE IF 
SSTHEY ARE 
TST @¥ERFLGS ;HAS ANY ERRORS OCCURED? ee 
IF WRITE ERROR OCCURS ECC IS NOT CHECKED 
BNE  _ TST&O ;;BRANCH IF YES 


;#COMPARE SOFTWARE GENERATED ECC WITH THAT GENERATED BY HAROWARE 
CMP | cc , O8WECC1; py tte Bidioy ECC WITH HARDWARE ECC 


ERROR 31 ict i Seber Ecc ECC_IN ERROR 
orp aucecce, , ANECCE; ibe PARE E sortunre Bec WITH HAROWARE ECC 
ERROR 31 {RIGH ORDER ECC. IN ERROR 






;#FILL “REINTO” BUFFER WITH EXPECTED DATA 


Cal epoRIH-A, BE RPOW SB Ni ae eae TELLER TST-PT 2 
bigebt O4S612 
1?ee2 
77777 


Dears Oi?se 
045612 


Ree 
BOSF 


estvenes 


Rete 
OO VOU -£ WO 


8 


a 


. MACY11 .27(855) 


JSR . RO Q4CLAREA FILL REINTO BUFFER 


RINT ‘FROM 
NTO#<255. #2) ;TO 
. WORD ‘DATA 
DECECC] , IBREINTO+< 256. #2); FILL ECCI 
V as ECC ” JERE INTO+<057.#2>:FILL ECCO 
JSR RO,0 CLAREA sFILL REST 
REINTO* 258 "2 :FROM 
REINTO+< 272. #2) :T0 
0 sDATA 


CLR Q#ERFLGS ;CLEAR ERROR FLAG 


;*NOW COMPARE “DISK” SUFFER WITH “REINTO™ 


IF to RO, J#COMPAR ; CHECK FER 

DISK eer BUFFER 

ess. OF toro CHECKED 

4$ RETURN POINT FOR ERROR HEADER 
5$ ;RETURN POINT FOR ERROR DATA 


i Reet ERBOR 10 


S7 AND 258 
: ARE ECC WHICH ARE CHECKED 


sWORD NOS A: 
31S DATA 


:WORD NOS 260 T9_273 


;ARE TOLERANCE GAP 
;RETURN TO COMPARE 
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;RETURN FOR GOOD COMPARISON 






SEG 0183 
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OZRIHA. TST tS? WRITE ECC TEST 2. | | 
$733 
S740 LEPRERERRERR REEL ESE SLE E SEE GAEL ERE E RE ERP ELE SELES EAP E EE EES DEES EL EE 
‘TEST 69 READ ECC ENABLED 2A 


THTS IS AN ECC TA eR 

ERROR CORRECTI 

NO ERROR IS I Rie 

GOOD pe USED IS 256 wO8CS OF 177777 

one eeetOR FOR CYLINDER O FORMAT 16 BITS PER WORD 
O KEYS 0 READ HEADER AND DATA 


i i yan ogperetonnsmniemasseesesesenstenesntaion 
"MOV #STACK, SP sRESET STACK 
017230 MOV BTTNO,Q8TSTNM ;THIS SAVES TEST NUMBER 


ree 


wows er ee ae ee 
3 i i i ee 


sesda 


ag 


SETUP FOR WHAT IS TO BE READ 
HEADER CRC IS RESTORED FROM A SUBROUTINE 


;DATA TO BE READ 
; COUNTER 


START OF SIMULATED DISK DATA 
;MOVE_IN DATA ON TO SIMULATED DISK 


: COUNT 
BRANCH IF 256 NOT COMPLETE 
{TUR OVER THE TWO ECC WORDS 


1 

;14 TOLERANCE GAP 
:CLEAR DATA GAP, AND 

; TOLERANCE GAP 

BRANCH IF NOT COMPLETE 


SP 
S 
3 
SP 
RO 


soo ZT 
tae 

uw 

a 


Mw. 
ee 


PC, daF ILLEC ; INSERT THE TWO ECC WORDS ON THE DISK 
IN THE CORRECT PLACE 


ARE FOR ECC TEST ONLY 
177777 O1S144 1, aaTSECC THIS, IS AN ECC T 
: wostTi 


oSo0402 
050376 os0400 JENCODE, IBNCOUNT 
b50404 oso4ie SRHORDER, J SHHAOTIP 


050372 
. OSO0406 DATA ENVEL 
050410 d#ZCODE ‘CLEAR LEADING ZEROS 


ARE TO SETUP FOR DISKLESS USE ONLY 
036722 012737 O1CO00 OS2e340 sFMT22, deCYL ;16 BITS PER WORD 














wot 


1 177374 155736 
S811 037014 012777 016264 155732 
ais pace 112746 

1 70e6 112766 00000! 
5814 B70 012677 155724 
$815 037040 012777 155722 
5816 
5817 
5818 
5819 03704% 005077 155720 
$821 937052 004737 7 
Pass 637056 104400 O0S1c4 

037062 000000 


ns 


013711 915200 
037070 Raced CiSieb 
7074 004737 OS2e00 





5832 
5833 

5834 

5835 

5836 

5837 

5838 

£839 

5840 

5841 

542 

5843 O37100 005737 015126 
Se44 037104 

45 037106 


58 004737 045374 
S646 037112 005737 015036 





NNDEC= 1 -DZRJH-A RPOW/S& DSKLS CONTROLLER TST-PT 2 
OZRIHA. TST to READ ECC ENABLED 2 





#IF THE PROGRAM COMES BACK HERE WITHOUT ERROR PRINTOUTS 
HaeROM THE "COMHD™ ROUTINE THA AT NEANNS 5 SECTOR GAP 
sac INe TESTE TE HAVE BBne BY AND SYNCS WERE CORRECTLY ; 


; OE TECTED 
R 





MACY11 27(65S) 


#0, J8SECOTR+! 


i: sue 


sete, , J8DAWORD 
Re” aeCRC 


ARE REGULAR SETUPS 


PC QUCLDISK. 
#-256.-4 
#REINTO sateen 
80° 1(eP 2) 
(SPs sERHOST 
#FMT 23° JRHOF 


dRHCA 


PC, JBCHECKT 
. CPHALT 


JSREFOR, IRI 
JeERFLGS 


Pe. asCOMHD 


; COMPARISONS ARE MADE 


3 en 
PC, J#PUTREG 


aeeR! 








s #HE AND DATA ARE fe BE CHECKED. 
;#1N CHECKING READ DATA THE WRITE FROM BUFFER 
;#°WREROM" IS FILLED WITH EXPECTED DATA AND 
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;NO. wt WORDS 
THIS IS A READ COMMAND 





SEY SM SEITE. 


int LOWER ER BYTE CET SECTOR mont 





310 BE CHECKED 
YLINDE 





on DVA 


RDY AND OTHERS DON’T 
T CONTINUE Pe ANY OF T 


HERS ARE STUCK 2 1 





Onn 
=n 









DATA 
;1F THERE ARE READ ERRORS THEN 
ECC WILL NOT BE CHECKED 









;ANY ERRORS Fal THERE 


ee REGIST 


;NO ERRORS SSHOULD BE SET 
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DZRIHA. TST to READ ECC ENABLED 2A 


S847 001401 BEQ 6$ 
037120 104032 


me Aa fee REISER, fen BE SEEN 
58s0 N THE PATERN REGISTE r ot 

013746 : MOV SeCECC1,-(SP)  :GET ie " 

042716 #174000, (SP) ;KEEP ON ONLY bette 

Deeb: 0 +, dKEC2 TERN "Recrster 

001401 


BEQ tERANEHE 
104032 311 BITS "br OTHE 32 BIT ECC REGISTER INCORRECT 


;#ADD 16 MAINTENANCE CLOCKS TO 
;#BRING EBL DOWN 


. RO UNTER. 
SHC K SRHMR coun CLOCK 
sMCLK’ JRHMR CLE CLOCK 
; BRANCH IF 1g CLOCKS NOT DONE 


a3 
PC, J8CHECKE 
, CPHALT 


#WRFROM 
arenes 
#0 


i 


TART PROGRAM 
GETTING READY TO FILL EXPECTED DATA 
‘CYLINDER 
IN LOWER BYTE GET SECTOR 
T TRACK IN HIGHER BYTE 
GET TRACK SECTOR IN BUFFER 
ik Y UrER 
i ‘ Ih RUE COUNTER 
pate INTO BUFFER 
3$ H IF 256 NOT DONE 
JRERFLGS “CLEAR ERROR FLAG 
PC, J8PUTREG :SAVE REGISTERS 
NOW READ DATA BUFFER WILL BE CHECKED 
JSR RO, J8COMPAR 
WRFROM #5000 "BUEFER 
REINTO TEST BUFFE 


4+256. af 4 WORDS CHECKED 
4§ RETUR PO NT FOR ERROR HEADER 
5$ RETURN POINT FOR ERROR DATA 


TST61 ;RETURN FOR GOOD COMPARISON 


ERROR 4 ;READ NEXT ERROR 
RTS PC RETURN TO “COMPAR” 


—— 
BS 


a: 


( 
9 

=( 
1( 
(R 
(Ri 
(R 
Rl 


- 


Re 


0 
0 
1 
1 
0 
0 


a 
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Ba eR eee EOE EEC ENABLED oA “ 


5901 037306 104905 S$: ERROR § ; WORD NOS 1 TO 4 ARE 4 
$902 N) R 


rf] 
5903 tf TO 560 ARE DATA WORDS 
Zane 037319 000207 RTS PC ;RETURN TO “COMPAR” 
5908 
5307 
5908 


~ 
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. TST teo READ ECC ENABLED 2A 


5 REAR ARIE HEHEHE HEHEHE AE SEE EER RARE HE EEE ERE HEHE EERE EE EERE EERE SESE 
;HTEST 61 AD ECC ENABLED 2B 


THIS IS AN ECC READ DATA TEST 
ERROR TON IS ENABLE 
ERROR IS IRERTED uy POSITION 32 
IS 256 WORDS 


D 
COMMAND IS GIVEN FOR CYLINDER O FORMAT 16 Bits PER WORD 
TRACK 0, SECTOR 0 KEYS O READ HEADER AND DATA 


de Ge ee a ee ee eee 


oo0004 +éT61: 
012706 001000 aoy BSTACK, SP RESET STACK 


012737 000061 017330 MOV STTNO,@#TSTNM = ;THIS SAVES TEST NUMBER 


;#SETUP FOR WHAT IS TO BE READ 
:#HEADER CRC IS RESTORED FROM A SUBROUTINE 


#-1,-(SP) ;DATA TO BE READ 
; COUNTER 


#256. ,R5 
DISK »RO START OF SIMULATED DISK DATA 
(SP), (ROJ+ MOVE IN DATA ON TO SIMULATED DISK 


BRANCH IF = NOT COMPLETE 
; JUMP OVER THE TWO ECC WORDS 


ity TOLERANCE GAP 
: CLEAR DATA GAP, AND 


: TOLE 
:BRANCH IF NOT COMPLETE 


PC, JeF ILLEC ; INSERT ECC IN PROPER PLACE ON DISK 


ARE FOR ECC TEST ONLY 


O1S144 #-1, I8TSECC. ;THIS IS AN ECC TEST 
aePOSITI “CLEAR ERROR POSITION COUNTER 
os0400 ; TEMPORARY N-CODE COUNTER 
050412 HARDER, J#HADTMP ’: TEMPORARY HARD ERROR COUNTER 
CL JaGECC! é Cow ORDER 19 2 GE TED 


;ECC HIGH ORDER E GENERATED 
;CLEAR DATA PRVELOPE CLOCK COUNT 
;CLEAR LEADING ZEROS CLOCK COUNT 


;#THESE ARE TO SETUP FOR DISKLESS USE ONLY - 





woe tee RPO4/S’6 DSKLS CONTROLLER TST-PT 2 MACY11 27(655) 
61 READ EC ED 28 





;*THIS IS TO INSERT ERROR 
SETHE pix. DATA IS_IN LOCATION STARTING FROM ’DISK’ 
ITION OF THE ERROR CAN BE CHANGED BY CHANGING 


877777 ,dsdISK+e ; CO ER ERROR ON BIT 


ARE REGULAR SETUPS Poi Se < 


8 


Be 


PROGRAM COMES BACK HERE WITHOUT ERROR PRINTOUTS 
HE St, a ROUTINE i! Lars SECTOR GAP, 


HEADER CRC, HEADER GAP AND 
san c. TE TE ARNE none BY AND CFnts WERE CORRECTLY 
;#HEADER AND DATA ARE TO BE CHECKED. 


656856 
a eT eg cag eat et a 
CUWNLCWMeO 


o 
oO 
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;16 BITS PER WORD 
eee O, FORMAT 16 BITS 


CTOR O i 

KEY1=0 H 

tKEY2= =0 f 
OF DATA WORDS 

1S IS A READ COMMAND 

TO CALCULATE CRC 









iN0, 
3TH 
;G0 
















NUMBER 32 
$30 ERROR POSITION REGISTER WILL SHOW 
INSERT POSITION REG. , oy 










; SETUP ee REGISTERS 
3256. DATA 4 HEADER WORDS 

4 oy: ING ADDRESS OF READ BUFFER 4 
;1N tf Loar BYTE GET yt 














¢ 
CHECK DVA,RDY,OPR,ORY = 1 AND OTHERS DON’T 
CANNOT CONTINUE TESTING IF ANY OF THE 
ABOVE BITS DON’T = 1 OR OTHERS ARE STUCK 2 1 
TOP THE TEST 
AD AND DATA=72 
CLEAR ERROR FLAG 
s READ HEADER AND DATA 
IF THERE ARE READ ERRORS THEN 
“ECC WILL NOT BE CHECKED 
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MNDEC-11-DZRJH-A,RPO4/S/6 DSKLS CONTROLLER TST-PT 2 
DZRJHA. TST tel READ ECC ENABLED 28 












6017 : p#IN gene READ DATA THE WRITE FROM BUFFER 
6018 WRFROM™ I ae, WITH EXPECTED DATA AND 
1 S SCOMPARTSO 
1 QO37€32 005737 015126 TST asERFLGS ;ANY ERRORS ALREADY THERE 
6022 037636 ina! ~ ae Teor 5 s BRANCH i et ES 
Baceua eee 7 Poeod 015036 IRE ebOk SHERI ONL i BRA Creek ERROR SHOULD BE SET 
001401 BEQ 6$ IF YES 






0378¢ ; BRANCH 
037654 104032 ERROR 32 132 fit ECC REGISTER SHOULD BE NON 
| ONLY, 11 OF THE 32 BITS CAN BE SEEN 











E 
6030 ;DCK SHO IN 1 
6031 037656 013746 050370 $$: MOV sege Ce he Ua ;GET PATTERN REGISTER 
6032 037662 O4%¢716 174000 BIC #174000, (SP) ;KEEP ONLY 11 BITS 
6033 037666 O2e637 015066 CMP (SP)+, JKEC2 ;COMPARE PATTERN REGISTER. 
6034 037672 001401 BEQ 7$ ; H 
6035 037674 10403e ERROR 3c. 311 BITS OF THE 32 BIT ECC REGISTER INCCRRECT 










6037 037676 004037 051012 7$: JSR RO, J#ECORR ;G0 TO ECC CORRECTION PROCESS 

6038 03770¢ 000026 85: 22. j EXPECTED POSITION REG. WHEN CORRECTION 

6039 :IS COMPLETE 

6040 

om 

6043 004737 046120 JSR PC O¥CHECKE CHECK THAT DVA R,DRY = 

6044 nots 104400 Boe ise TYPE , CPHAL :CANNOT CONTI fnue TF The ¥ ¥ Don? 1 

6045 037714 O00000 “STOP THE TEST AND RESTART PROGRAM 
037716 012700 015220 MOV #WRFR *GETTING READY TO FILL ERPecteS DATA 

eb it 037722 01 010000 MOV torrie? (RO)+ ;CYLINDER O 

6048 037726 112746 000000 MOVB 40, -( *IN LOWER BYTE GET SECTOR 

6049 037732 112766 000000 o00001 MOVB 1t3P) :GET TRACK IN HIGHER BYTE 

6050 037740 Olob2e0 - MOV (SPs (RO)+ :GET TRACK/SECTOR IN BUFFER 

6051 037742 012720 op0000 MOV (RO) “KEY IN BUFFER 

6052 037746 Ole7e0 o00000 MOV io )+ *KEY2 IN BUFFER 

6053 037752 O12701 o00400 MOV ag, (RO Rl DATA WORD COUNTER 

6054 037756 Ole702 177777 MOV #-1 ‘DATA 
037762 010220 38: MOV Re, (RO)+ :DATA_INTO BUFFER 

6056 037764 005301 DEC Ri : 

B05? 037766 001375 BNE 3$ ;BRANCH IF 256 NOT DONE 





6059 ;#ONLY GOOD DATA HAS BEEN PUT IN 'WRFROM’ 
6060 :*#NOW THE INSERTED ERROR WILL PUT IN 









6061 
6062 037770 012737 077777 015232 NOY 477777, DUMRFROM#<SH2) INSERTED ERROR 
BOb3 93777 008737 O4Ba74 JSR PC, a¥PUUTRE REGISTER 
BOb4 040002 O0s037 015126 ccR = DueRFLGS ‘TERR ERROR FLAG 

s 
6067 ;#NOW READ DATA BUFFER WILL BE CHECKED 
6069 O40006 004037 046570 ISR RO,@#COMPAR ——_; CHECK 





GOOD BUFFER 
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6100 
6101 
6102 
6103 
6104 
6105 
a 
He 
6109 
6110 
. 6111 
bile 
6113. 
pild 
115 
6116 
6117 
6118 
6119 
6120 
6lel 
Elee 
6123 
6124 
6125 
6126 
6le7 
6128 
6129 
6130 
6131 
6132 
6133 
6134 
6135. 
6136 
6137 
6138 


te! READ ECC ENABLED 28 


EHH HEHHHHB EHH 
ST 62 READ ECC ENABLED eC 


THIS IS AN ECC READ DATA TEST 

ERROR CORRECTION IS ENABLED 

A NON CORRECTABLE ERROR IS INSERTED IN BIT POSITION 32 AND 21 
GOOD DATA USED IS 256 WORDS OF 177777 

COMMAND IS GIVEN FOR CYLINDER O FORMAT 16 BITS PER WORD 
TRACK 0, SECTOR O KEYS OQ READ HEADER AND DATA 


stseeneersseneennsneceninennennseeennsseentnsaneennasee 
Bie7be 001000 Tee: HOV NSTACK,SP . «RESET STACK 
012737 000062 017230 MOV -RTTNO,@8TSTNM ©; THIS SAVES TEST NUMBER 
READER CRC 1S RESTORED FROM A SUBROUTINE 
#-1, -(SP) ;DATA ig BE READ 


#01SK;RO eT ART OF SIMULATED DISK DATA 
(SP), tROD+ ;MOVE IN DATA ON TO SIMULATED DISK 


* BRANCH IF 256 NOT COMPLETE 


(SP)+ 3U 
(RO)+, (RO)+ *JUMP_OVER THE TWO ECC WORDS 
#15. ,R5 *1 DAT 


(RO)+ 
RS RANC 
+} BRANCH IF NOT COMPLETE 
PC, d#FILLEC ; INSERT THE TWO ECC WORDS ON THE DISK 
- IN THE CORRECT PLACE 
;*THESE ARE FOR ECC TEST ONLY 


o1si44 SweStT tie ee pee COUNTER 
R ODE COUNTER 


050400 
os041e 


;ECC HIGH ORDER TO BE GENERATED 
CLEAR DATA ENVELOPE CLOCK COUNT 
CLEAR LEADING ZEROS CLOCK COUNT 


;#THESE ARE TO SETUP FOR DISKLESS USE ONLY 
052340 MOV #FMNT22, deCYL ;16 BITS PER WORD 
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tee READ ECC ENABLED 2c 


;CYLINDER 0, FORMAT 16 BITS 
0. 00, SHSECOTR s TRACK O 
ivi 0 


b= ba 


O’ SeKEVE a=0, 
i ,@HDAWORD ; 0, ‘SF oD ATA WORDS 
HIS IS A READ COMMAND 
RE. DECRC +t TO CALCULATE CRC 


bb Bb hme ee pe pep 


SSTHE INSERT ERROR 3 
D ley S_IN LOCATION STARTING FROM ’DISK’ 
THE ERROR CAN BE CHANGED BY CHANGING 


a aes 


012737 0S4260 MOV #77757, seine 5 FORCE ERROR ON BIT NUMBER 32 AND 21 
;$0 ERROR POSITION REGISTER WILL SHOW 


040426 #4128. ,d#8$ INSERT POSITION REG. 


ARE REGULAR SETUPS 
; SETUP GENERAL REGISTERS 
154460 MOV 4 HEADER WORDS 
154454 10,3 SETARTING ADDRESS OF READ BUFFER 
satis MOVB #0, -(SP} : R 


MOV ( JRHDST 
1S4444 #FMT22,dRHOF =; PER WORD 
ZECC CORRECTION NOT INHIBIT 
*BECAUSE ECC IS NOT GOING 
:TO BE CHECKED 
JRHCA *CYLINDER O 
PC, IUCHECKT ;CHECK DVA,RDY,OPR, DRY = 1 
, CPHALT ; CANNOT ey hie, TEST! NG IF 
ABOVE BITS = 1 OR OT 
BS ie The fF 


J#REFOR, aR] ;READ HEADER AND DATA=72 
JRERFLGS sCLEBR ER ERROR FL FLAG 


PC, d#COMHD R_AND DATA 
TF AOUERE ARE READ ERRORS THEN 
SECC WILL NOT BE CHECKED 


a oa DON’T 
HERS ARE STUCK @ 1 


:*IF THE PROGRAM COMES BACK HERE WITHOUT ERROR PRINTOUTS 
; HERON THE “COMHD™ ROUTINE THAT MEANS SECTOR GAP, 
*#FIRST SYNC, HEADER, HEADER CRC, HEADER GAP AND 
suse rte HAVE GONE BY AND CFNCS WERE CORRECTLY 


itteste Witcsbst atch At ited a ite Natt oN ge sant: ime imamate A « 


6 
; 
6 
6 
6 
6 
6 
6 
6 
6 
6 
6 
6 
6 
6 
6 
6 
6 
6 
6 
6 
6 
6 
6 
6 
6 
6 
6 
6 
6 
6 
. 6 
6 
6 
6 
E 
6 
6 
6 
6 
6 
6 
6 
. 6 
6 
6 
6 
6 
6 
6 
6 
6 


bb bb bb 6 0 = 8 2 = 0 bb = 0 bb 2 b= = b= BF 0 bb bb bb 0 bb bb pp 
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DZRIHA 


ahah ot ho 
SBERRLS FZ 


paeenes 


pb bp b= Ps Pe pee bh + bee 


Foruforororuroruroruro 
Sim NOU WT 


BEER 
Sie 


te2 


004737 


022737 


001401 
104036 


READ ECC ENABLED eC 


015126 


045374 
100000 


050370 
174000 
015066 


051012 


045374 


100100 


015036 


6S: 


7$: 
8$: 


015036 


ae ~ 


9S: 


000001 
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HEADER AND DATA ARE TO BE CHECKED. 
iEIN CHECKING 8 READ DATA THE UR TE FROM BUFFER 


FILLED WITH EXPECTED DATA AND 


;*COMPARISONS ARE MADE 


TST 


O#ERFLGS ;ANY ERRORS ALREADY THERE 

TST sBRANCH IF YES 

PC TSYPUTREG SAVE REGISTERS 

£ btk, d#ER1 iON DRT ok ERROR SHOULD BE SET 
52 ;32 BIT ECC REGISTER SHOULD BE NON 


; ZERO 

;ONLY 11 OF THE 32 BITS CAN BE SEEN 

IN THE PATERN REGISTER 

;OCK ‘SHOULD BE SET IN RHERI 
deGECC1,-(SP) GET aa? th REGISTER 


#174000, (SP) KE 
SP)+, JHEC : COMPARE PATTERN REGISTER 
sg *BRANCH IF GOOD 
32 11 BITS OF THE 32 BIT ECC REGISTER INCORRECT 
RO, JHECORR ;GO TO ECC CORRECTION PROCESS 
sera Tep ger tTON REG. WHEN CORRECTION 


PC, J#PUTREG ;SAVE REGISTERS 
#DCK!ECH,J#ER1 ;WITH ERRORS INSERTED IN SIT POSITION 2! 
95 NO 3 HARD ERROR BIT SHOULD SET 


00 
36 WITH ERROR INSERTED IN BIT POSITION 21 THRU 
;32 HCE SHOULD SET 


PC, J#CHECKE ;CHECK THAT DVA,RDY,DPR,ORY = 1 
, CPHALT : CANNOT TEONTONGE IF THEY DON ON’ T 
i STOP THE TEST AND RESTART PROGRAM 
#WRFR ‘GETTING READY TO FILL EXPECTED DATA 
torres, ( (RO)+ s CYLINDER 0 
#0, - :IN LOWER BYTE GET SECTOR 
#0: (3p) sGET TRACK IN HIGHER BYTE 
(SP)+. (RO)+ TRACK SE CTOR IN BUFFER 
#0, (RO)+ tPEYI t BUFFER 
#0; (RO)+ iKEYe IN BUFFER 
#256. RI ;DATA WORD COUNTE 
#-1, Re : DAT 
Re, (RO)+ sare INTO BUFFER 
3$ H IF 256 NOT DONE 


SEQ 0194 





Rese 915232 


mE 
a 
£58 
Bs 


Been ra ka aah 


Re 


O49S"6 900207 





ny lili gPo4 Ss Eater. eee TST-PT 2 


4$: 
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:#0NLY_G000 DATA N PUT IN “WREROM’ 
;#NOM THE Jepashaon WIL ke PUT IN 
Hoy BURF ROM «92> BBs ie 
CLR cc peruite ‘ate teat OR FLAG 

;#NOW READ DATA BUFFER WILL BE CHECKED 


I RO, J8COMPAR ieee eren 





REINTO 

44256. 

Spe Pe FP EEE roe 
5 , NT FOR 

TST&3 ;RETURN FOR GOOD COMPARISON 
(al 4 ;READ NEXT ERROR 

T PC : RETURN 10 OMPAR™ 
ERROR 5 eke fos 1 TO 4 ARE 

TO o, DATA WORDS 
RTS FC BET ORNS “COMPAR™ 














6272 
6273 






2 





6277 
627 





SEGOLELEGS 
WOnNOUILC Wwe 





SERRE 





6325 











GURUS ERE Bae ann toR SOE IR SEROR GG acs 


040746 
040754 
040760 


049764 


O00 Cc 

————— 

dag cf 
— Ces 


012777 


013700 


010077 
0127e0 


001000 


910000 


017330 


015144 


050400 
OSO4i2 


OSS476 
ossso0 


OSSS36 


1$3776 


SSH AE RO 2 
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5 RPRAEREREERARREEEREARELEASEREREEESEEEEERE EES ESSERE EE EEEES ES EEE 


!&TEST 63 WRITE ECC TEST 3 
:% THIS IS A WRITE ECC TEST 
;# WRITE CYLINQER 0, FORMAT 16 BITS PER WORD 
1 TRACK 0, .96¢ OR 1, KEYS 0, NUMBER OF WORDS 256 
:# OF ALL . 
HESFSERSEELHERERYERHLE RLF FALE HLEESEERPLE FSSA SESE PFE REFELEL SESS HES 
tS163: SCOPE 
MOV aSTACK, SP RESET STACK 
MOV BTTNO,asTSTNM ©; THIS S TEST NUMBER 
MOV #SECGAP RB POINTER © 
MOV 8304. , RI : COUNTER 
1S: CLR {RO)+ ;CLEAR SIMULATED DISK AREA 
BNE 1§ 
ISR PC, CLDISK ;THIS IS USED TO SET GENERAL REGISTERS 
;#THESE ARE FOR ECC TEST ONLY 
MOV 8-1, 8TSECC sTHIS IS AN ECC TEST 
CLR aePOSITI :CLEAR ERROR POSITION COUNTER 
MOV DENCODE, JBNCOUNT ; TEMPORARY N-CODE COUNTER * 
MOV DER, @ RROR COUNTER . 
CLR BaGECC] sECt LOW ORDER TO BE GENERATE “ 
CLR BSGECCS ‘ECC HIGH ORDER TO BE GENERATED 
CLR JaDATENV :CLEAR DATA ENVELOPE CLOCK COUNT 
CLR a8ZC0DE “CLEAR LEADING ZEROS CLOCK COUNT 
S2THESE ARE TO BE SETUP FOR DISKLESS USE ONLY 
MOV aFMT22, DBWCYL sFORMAT2E=16Bi7 WORDS AND 
MOV #1, J8WSECTR :TRACK=0, SECTOR=1 
CLR DelKEY 1 KEY 1=0 
CLR aaWKEY? *KEY2=0 
MOV #256. ,a8FNWORD ;:256 DATA WORDS 
JSR RS, aBCRC :G0 TO CALCULATE CRC 
WOYL 
GCRC 
s#THESE ARE REGULAR SETUPS ; 
MOV $-260.,dRHWC ;256 DATA WORDS 4 HEADER WORDS 
MOV #WRFROM. RO :THESE TWO INSTRUCTIONS GETS 
MOY RO, JRHBA "ADDR. OF WRFROM INTO RO AND 
*BUS ADDRESS REGISTER 
MOV SFMT22,(RO)+  :FORMAT=16 BIT WORDS 
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DZRIHA. TS 463.0 «OWRITE ECC TEST 3 
6326 CYLINDER =0 
6327 O40770 O1 000001 2s: MOV a1 (RO)+ . ; TRACK=0, SECTOR=1, KEYS=0 
6328 949774 cle (R4)+ *KEY1=0 
6329 40778 ; ctR (RO)+ me sKEYe=0 
aN BiGoN pi g708 BeSdoe 38: HOY #52828, (R04 ‘ROVE SuNTER 52525 FOR DATA 
6333 O410l2 O01374 BNE 33 sBRANCH IF DATA NOT COMPLETE 
6334 O41014 O12777 O000001 153742 MOV #1, QRHDST :TRACK=0 SECTOR=1 
p33 : o41022 004737 045730 JSR PC,DSCHECKT 4 CHECK DVA,ROY,DPR,DRY = 1 AND OTHERS DON’T 
6337 041026 104400 005124 TYPE ,CPHALT {CANNOT CONTINUE TESTING te ANY 
§338 \ HABOVE BITS DON'T © 1-O8 OTHERS ARE STUCK 2 1 
6339 041032 o00000 HALT , iSTOP THE TEST 
P34) ow034 013711 O1S174 ; MOV —- MBWRIFOR, aR1 READY FOR WRITE HEADER AND 
8342 Dera HTH Be IN RHCS1 
6343 O41040 005037 015126 CLR DHERFLGS . CLEAR L 
6344 O41044 012777 O10000 153716 MOV #FMT2c, JRHOF FORMAT, ets (16 BIT WORDS) 
6345 041052 77 153714 CLR JRHCA 
bse 041056 004737 O55322 JSR PC, J@COMWHD CRtTe o. AND DATA 
6348 :#1F THE PROGRAM COMES oni HERE WITHOUT ERROR PRINTOUTS 
6249 FROM THE “COMWHD” ROUTINE THAT MEANS ALL HEADER ON DISK 
6350 #1S GOOD IE. ONLY DATA IS TO BE CHECKED TO SEE IF THEY ARE 
5351 ;#ALL S225 AND WRITE DATA GAP AND TOLERANCE GAP TO SEE IF 
6352 :#THEY ARE ALL ZEROS ' 
P3eq 1062 905737 015126 anes JHERFLGS sHAS ANY ERRORS OCCURED? 
6355 IF WRITE ERROR OCCURS ECC IS NOT CHECKED 
6356 O41066 001056 BNE TST&4 ::BRONCH IF YES 












;COMPARE SOFTWARE GENERATED ECC WITH THAT GENERATED BY HARDWARE . 
1070 023737 O0S0370 OSS2S6 CMP QRGECC], aaWECC1; COMPARE SOFTWARE ECC WITH HARDWARE ECC 
1076 001402 BEQ 6$ ;BRANCH IF 
1100 104031 ERROR 3 : LOW GROSR ECC_IN ERROR 
1192 900405 R $ BRANCH TO CONT 
1104 023737 050372 CSS260 68: CMP DHGECC2, TAWECC2 ;COMPARE SOFTWARE ECC WITH HARDWARE ECC 
lli2 00140) BEQ 7$ BRANCH IF GOOD 
1114 104031 ERROR 31 HIGH ORDER ECC IN ERROR 








1116 7S: 
1116 004737 046120 JSR PC, JUCHECKE ; CHECK THAT DVA, RDY, DPR ORY = 

llz2 104400 005124 TYPE  , CPHALT :CANNOT CONTINUE IF’ THEY 

li26 900009 HALT : STOP THE” Tee AND RESTART SROGRAM 





;#FILL “REINTO” BUFFER WITH EXPECTED DATA. 
JSR RO, J#CLAREA ;FILL REINTO BUFFER 
















941130 004037 O4Séle 





~ 
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DZRIHA t63 WRITE ECC TEST 3 







1 1 INTO ;FROM 
S81 ONilse Dlsee2 REINTO®«c2ss.2> $10 
6382 O41140 052525 . WORD ;DATA 
11 1 ‘ 17264 MOV NTO+< # >;FILL ECC1 
Baee Guliso OL Beosve Dl7see MOV Seceoe 2st Sire NTO+< > FILL Ecce 
6386 1158 004037 O4Sé12 J sFILL "Rest 
bas? Oullbe Ol7ero Tntos<gst. ee ;FROM 
1164 Ol NTO+<e7¢. #2) ;T0 
6389 41166 900000 0 ;DATA 
£391 
bs3e 041170 005037 018126 CLR = J8ERFLGS ;CLEAR ERROR FLAG 
6394 
395 ;*NOW COMPARE “DISK” SUFFER WITH “REINTO” 
E39? O4L174 04037 O46570 JSR RO, d8COMPAR Soo 
6338 41200 Olbeb4 RE INTO feet Burren 
6399 O4le02 054256 O1SK FER os 
6400 041204 258. WORDS CHECKED 
Ovig05 viel" aE stun POINT FOR ERROR HEADER 
1210 041220 3§ ;RETURN POINT FOR RROR DATA 






6404 O4l2i2 O41224 TST64 ;RETURN FOR GOOD COMPARISON 







64 1214 ale 4§: ERROR 7 ;READ ERROR 10 NEXT 

640 lel6 RTS PC RETURN TO COMPARE 

6408 O4lee0 104010 S$: ERROR 10 ;WORD NOS 1 TO 256 ARE 
6409 ;DATA 

$410 ;WORO NOS 257 AND 258 
6411 ARE ECC WHICH ARE CHECKED 
S412 ;WORD NOS 259 








S413 :18 DATA GAP Fo Hi 
6414 WORD NOS 260 TO 273 cM) 
S405 SARE TOLERANCE GAP i 

? T RETURN TO COMPARE 














16 
) 







MNDEC-11-DZ2RJH-A,RPO4/S.6 DSKLS CONTROLLER TST-PT 2 MACYL1 27(655) 30-MAR-76 20:59 PAGE 153 
DZRIHA. TST t63 - WRITE EcC TEST 3 

iy - 

Nig - i 5S tt Ht laielllell 

as eT T 64 READ ECC ENABLED 3A 

4 ;% I C RE TA TEST 

7 ERASR  eoRREET ION i PN 

6423 ti NOE ERROR IS INSERT 

use iS Rs ety 15 6, woo ORR O FGRRAT 16 BITS PER WORD 

3 t# carmen Seto Res MOE HEADER AND DATA 

aS agg 7 ranapamn aes: ons =n peony pthc sagt nes ys 

6429 041224 O00004 +éTg4: SCOPE 

Ss gules 01270 901006 aSTACK, SP RESET STACK 

B43 041232 012737 000064 017330 MOV #TTNO,Q8TSTNM THIS SAVES TEST NUMBER 
























64 : :*#SETUP FOR WHAT IS TO BE READ 
p35 :#HEADER CRC IS RESTORED FROM A SUBROUTINE 

37 O41 l MOV #52525,-(SP)  ;DATA TO BE READ 
6438 Ba tSag piso ee anita MOV web VRS : COUNTER 
6439 Ov1250 g12709 054256 MOV a : START OF 0 MULAT D DISK DATA 
aa pyies4 11820 1$: HOV P), Ros age TN On 0 SIMULATED DISK 
Buus OMiSee | poStoe Am ig P+ SBRANCH IP 256 NOT COMPLETE 
6444 Ou i264 d22020 CMP (ROD (RO)+ : JUMP OVER THE TWO ECC WORDS 
ane 1266 012705 000017 MOV #15. ,A5 i} DATA re on 
6447 041272 o0S5020 23: L (RO)+ ;CLEAR DATA GAP, AND 
be 041274 005305 DEC RS : TOLERANCE 
ane 041276 001375 BNE 2s ‘BRANCH IF NOT COMPLETE 
6451 041300 004737 0S1i64 ISR PC, @eF ILLEC sINSERT THE TWO ECC WORDS ON THE DISK 
bYbe : IN THE CORRECT PLACE 
euoM ;*THESE ARE FOR ECC TEST ONLY 

4 1 rd 77777 «(015144 MOV 8-1, J¥TSECC IS AN ECC TEST 
Pues patie pena bca4a2 CLR Sept tt st ERROR POSITION COUNTER 
6458 041316 013737 050376 oso4cO MOV SENCODE aNNCOUNT’ 3 TENE ORARY N-CODE COUNTER 
6459 0413204 013737 OS0404 O50412 MOV JBHARDER, J#HAD TMP TEMPORARY HARD ERROR COUNTER 
6460 041332 37 70 CLR d8GECC sECe L OW ORDER 19 BE GENERATED 
6461 941336 72 CLR JUGECC ECC HIGH ORDER TO BE GENERATED 
S462 041342 005037 OSO406 CLR JSOATENV :CLEAR DATA ENVELOPE CLOCK COUNT 
6463 041346 005037 OS50410 CLR aSZCODE :CLEAR LEADING ZEROS CLOCK COUNT 







646 ;#THESE ARE TO SETUP FOR DISKLESS USE ONLY 


6468 041352 012737 019000 052340 MOV sFMT22, BCL 546 BITS PER WORD 
6469 YLIND! ‘n't 0, FORMAT 1é BITS 
' #0, JBSECOTR+ TRACK 

















DZRJHA 





. TST 
Be pa He 
a Bus 


041422 


te4 


104032 
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READ ECC ENABLED 3A 


153396 
183302 


183272 


JSR PC, I8CHECKT ;CHECK DVA,RDY,OPR,DRY = 1 AND OTHERS DON’T 
TYPE  , CPHALT :CANNOT CONTINUE TESTING IF ANY OF THE 
;ABOVE BITS DON’T = 1 OR OTHERS ARE STUCK 2 1 4 
HALT :STOP THE TEST 
V JUREFOR, IRI 


MO 
CLR SSERFL GS 
JSR 


TST OeERFLGS 


TST aeeR1 SHODLD 
BEO 6S s BRANCH 'P NO ER 
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mr Shae gee 






ah ae 
CLR aax Mis 1s Is A BEAR COMMAND 





JSR RS, a#CRC :G0 TO CALCULATE CRC 





;#THESE ARE REGULAR SETUPS 
JSR A aeCLDISK ; SETUP ew, eels Tere 
3256. DATA anatet Ce 






HOV . aREIN ee i$ TARTING ADORE eee o BUFFER 
Ove a0," er ec in ato Sect 






MOV (ops JRHDST s TRACK/SECTOR 
MOV (SPs DRHOF ;16 EES 
C CORRECTION NOT INHIBIT 


BECAUSE ECC IS NOT GOING 
TO BE CHECKE 
CYLINDER O 





CLR aRHCA 









;READ HEADER AND DATA=7e 
CLEAR END ERR i A 


eee 
ETRE Rt BPREEDES PO 


;#IF THE PROGRAM COMES BACK HERE WITHOUT ERRCR PRINTOUTS 
FROM THE COMHD ROUTINE THAT MEANS SECT OR GAP, 
FIRST SYNC HEAD: HEADER AND 
5 #SYNC BYTE HAVE GON GONE BY AND CrKas WERE CORRECTLY 


dey 3 
R AND DATA * TO BE CHECK D 
taIN ne READ DATA THE WRITE F 
; #°WRFROM” 
; #COMPARI SONS 





PC, J#COMHD 








ROM BUFFER 
one pak eR waTH EXPECTED DATA AND 








. : ; ANY ng at ALREADY THERE 
S PC, J#PUTREG ae REGIS} 









RORS SET 
3e ;32 BIT ECC REGISTER SHOULD SE ZERO 
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DZRIHA. TST tey READ ECC ENABLED 3A 


6525 iN OY 21 Fe gest atte CAN BE SEEN 
HOULD 








6 :DCK 
041 GEC 
O41 04 74000 ‘KEEP ONLY v1 BIT 
1562 022637 015066 (SP)+, JREC2 ‘COMPARE PATTERN REGISTER 
6531 041556 001401 SEQ $ ; BRANCH 
bose 1570 104032 ERROR 32 11 BITS OF THE 32 BIT ECC REGISTER INCORRECT 





6535 
£536 

6537 :#ADD 16 MAINTENANCE CLOCKS TO 

6538 **BRING EBL DOWN 

6540 041572 912700 000020 7$: MOV #16. ,RO. ; COUNTE 

6541 041576 O00002 153174 98: BIS #MCLK, JRHMR ;SET CLOCK 

6542 041604 042777 000002 153166 BIC sMCLK, JRHMR -CLEAR CLOCK 

6543 041612 OO DEC RO : COUNT 

6544 041614 001370 BNE EES ‘BRANCH IF 16 CLOCKS NOT DONE 

6545 041616 046120 JSR PC, JSCHECKE ?CHECK THAT DVA,RDY,DPR,DRY = 1 

6546 O4lbee 104400 005124 . TYPE = ,CPHALT sCANNOT CONTINUE IF’ THEY DON’T 

Feug OM1e30 OlereD 015220 * ROOT quperom.ro SCETTING’REABY TO FILL EXPECTED DATA 
6545 O4163%4 O1e72e0 010000 » MOV SGIFZe, (ROJ+ jCYLINDE 

6550 O41640 1le746 Gococe ‘ MOVE 80, -( SP) ?IN LOWER BYTE GET SECTOR 

6551 O41644 112766 000000 o00001 MOVB = 80/1(5P) *GET TRACK IN HIGHER BYTE 

e223 ouieed O1S750 000000 ry Phe nme ae Te econ IN GUPPER 

6554 O41660 O1e7e0 000000 MOV #0’ (RO)+ sKEYe IN BUFFER 

655S 041664 O12701 o00400 MOV #256. .R1 *DATA WORD COUNTER 

6556 041670 Ole702 MOV #52525, Re DATA 

6557 att Zee 010220 38: nov Re, (RO}+ SATA INTO BUFFER 

Ebes 041700 001375 BNE 3$ :BRANCH IF 256 NOT DONE ‘ 
6560 041702 005037 015126 CLR JHERFLGS CLEAR ERROR FLAG é 
bob! 041706 004737 045374 JSR PC, J8PUTREG -SAVE REGISTERS t 
63 ;#NOW READ DATA BUFFER WILL BE CHECKED 








046570 JSR RO, J#COMPAR ; CHECK 
WRF ROM ; 





4 ;NUMBER OF WORDS CHECKED 
1732 4$ RETURN POINT FOR ERROR HEADER 
6570 1736 ss. RETURN POINT FOR ERROR DATA 







6572 041730 041742 TSTES ;RETURN FOR GOOD COMPARISON 







6574 041732 104004 — 4$:; ERROR 4 ;READ NEXT ERROR 
6575 041734 000207 RTS PC RETURN TO “COMPAR” 
e278 041736 104005 S$: ERROR 5 sHORD Nos 1 TO 4 ARE 






5 TO 260 ARE DATW WORDS 
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OZRIHA. TST te4 READ ECC ENABLED 3A 


6579 041740 000207 RTS PC ;RETURN To “COMPAR” 


ee ee eee ee 


ooo 


—— 
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DZRJHA. TST te4 ~° READ ECC ENABLED 3A 


ii 599893 3 9 9 EE SE 
#TEST 65 READ ECC ENABLED 38 


ERROR CORRECTION 18 ERMGLED 


E ERROR IS INSERTED IN BIT POSITION 4128 


ie ib biti est HORUS OF sz 


Ses 
YLINDER 0 *FORRAT 16 atts PER WORD 
TRACK D 0, TeeerOR O° Keys 4 READ HEADER AND DAT 


.: egy 0 eeepapmergea geen: —iepagammiin teams ~ rape sonar 


tST65: SCOPE 
MOV aSTACK, SP sRESET STACK 
MOV RTTNO,Q&TSTNM ;THIS SAVES TEST NUMBER 


; #SETUP FOR WHAT IS TO BE READ 
;#HEADER CRC IS RESTORED FROM A SUBROUTINE 


-(SP) soare Te BE READ 


; COUN 
:START OF SIMULATED DISK DATA 
; MOV E_IN DATA ON TO SIMULATED DISK 


; COUNT 
i PRECH IF A NOT COMPLETE 
;JUMP_OVER THE TWO ECC WORDS 
:1 DATA GAP 


:14 TOLERANC 


E GAP 
;CLEAR DATA GAP, AND 
TOLERANCE GAP 
:BRANCH IF NOT COMPLETE 


PC, J#FILLEC ; INSERT ECC IN PROPER PLACE ON DISK 


SESE TESS. 
WDNMU£WMH-O 


ARE FOR ECC TEST ONLY 


015144 MOV #-1, J8TSECC sTHIS IS AN ECC TEST 
aePOSITI CLEAR ERROR POSITION COUNTER 
oso400 JBNCODE, JaNCOUNT’ ; TEMPORARY N-CODE COUNTE: 
oso4le a HHARDER, JRHADTMP. ” TEMPORARY NABRD ERROR COUNTER 
GECCI ece Low RDER TO BE GENERATED 
ECC A GH ORDER TO BE GENERATED 
*CLEAR DATA ENVELOPE CLOCK COUNT 
d#ZCODE CLEAR LEADING ZEROS CLOCK COUNT 


ASSOC ASS 


ARE TO SETUP FOR DISKLESS USE ONLY 
042070 sFMT22, d8CYL ;16 BITS PER WORD 





NNDEC=11-' 
DZRJHA. TS 


ovate RPOY/S/6 wie CONTROLLER TST-PT 2 
tes READ ECC 


013711 
5037 
004737 


152520 


045730 
005124 


015200 
015126 
052200 


ENABLED 38 


042350 


12536 
1S2532 


000001 
152522 


; THIS 
*THE 


HATE POSITION 


MACY11 27(655) 


0 SHSECOTR 


40° oaKEYe 
rete, JSDAWORD 


8 
RS, d#CRC 


IS TO INSERT ER 


THIS MOVE 
bSTHIS CHANGES THE LAST BIT OF THE ECC 


; *THESE 


W418. ,a98S 


ARE REGULAR SETU 
PC, S#CLDISK 
#-256.-4.. aR 
ae , SRHBR 


1(5P) 
top) 4 aRROST 


@RHCA 


PC, JUCHECKT 
, CPHALT 


JHREFOR, IRL 
DKERFLGS 
PC, J#COMHD 
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;CYLINDER 0, FORMAT 16 BITS 
s TRACK 0 

;SECTOR 0 

sKEY1=0 

sKEYe=0 

;NO. OF DATA WORDS 

‘THIS IS A READ COMMAND 

GO TO CALCULATE CRC 


ROR 
DISK DATA IS_IN LOCATION STARTING FROM ’DISK’ 
OF THE ERROR CAN BE CHANGED BY CHANGING 


;GET LAST ECC 
s INVERT ALL BITS OF WECCe 


;CLEAR BIT 16 IN ECC 
;THIS WILL SET BIT 16 IF IT WAS O 
OR WILL SET NOTHING IF IT WAS A 1 


; INSERT POSITION REG. 


PS 


;SETUP GENERAL REGISTERS 
255. DATA 4 HEADER WORD 
Sete: ADDRESS OF bar BUFFER 


:GET TRACK I 
TRACK/SECTOR IN RHDST 
aPMTZR, JRHOF ;16° ‘BITS WORD 


PER 
; CORRECTION NOT INHIBIT 
;BECAUSE ECC IS NOT GOING 
110 BE CHECKED 
he 


; CHECK DVA, RDY,DPR.DRY = 1 
; CANNOT CONTINUE TESTING IF 
“ABOVE BITS DON’T = 1 ORO 
:STOP THE TEST 
sREAD HEADER AND DATA=72 
CLEP ERROR FLAG 
AD HEADER AND DATA 
IF THERE ARE READ ERRORS THEN 
“ECC WILL NOT BE CHECKED 


AND Tg Taal T 
THERS ARE STUCK @ 1 
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DZRJHA. TST B 


bess 


tes READ ECC ENABLED 3 


908737 015126 
C4737 045374 
37 100000 


015036 


000001 


6$: 


7$: 
8$: 


33: 


s#IF THE PROGRAM COMES BACK HERE WITHOUT ERROR PRINTOUTS 
FROM THE “COMHD” ROUTINE THAT MEANS SECTOR GAP, 
SSF IRST i HEADER, HEADER HEADER one AND 
:#SYNC BYTE HAVE GONE BY AND EAs WERE CORRECTLY 
sADETECTED. 
ARE TO BE 


ADER AND DATA CHECKED. 
iN CHECKING READ DATA THE WRITE FROM BUFFER 
#"WRFROM” IS FILLED WITH EXPECTED DATA HND 
OMPARISONS ARE MADE 
rst O#sERFLGS ;ANY ERRORS ALREADY THERE 
8 TST66 H IF YES 


NE Bi 
JSR PC, JPUTREG -SAVE REGISTERS 
CMP a0Ck, J#ER1 SONLY DATA CHECK ERROR SHOULD BE SET 


BE : BRANCH 
ERROR 32 36,81 ECC REGISTER SHOULD BE NON 
ONLY 11 OF THE ze ets CAN SE SEEN 


MOV @#GECC1,-(SP) CET PATTERN REGISTER 
BIC #174000 (SP) sKEEP ONLY 11 BITS 


CMP , akECe :COMPARE PATTERN REGISTER 

BEQ a BRANCH IF GOOD 

ERROR 32 :11 BITS OF THE 32 BIT ECC REGISTER INCORRECT 
JSR RO, d#ECORR ;GO_ TO ECC CORRECTION PROCESS 

4118. EXPECTED POSITION REG. WHEN CORRECTION ~~, 


JSR PC, J#CHECKE ;CHECK THAT DVA,RDY,DPR aS 


TYPE _ , CPHALT :CANNOT CONTINUE IF’ THE yo 

HALT :STOP THE TEST AND RESTAR POO ROGRAN 
MOV #WRFROM, RO : GETTING READY TO FILL EXPECTED DATA 
MOV ug!FiiTee, (RO)+ CYLINDER 

MOVB 40, - (SP) IN LOWER BYTE GET SECTOR 

MOVB 1(5P) "GET TRACK IN HIGHER BYTE 

MOV (SP) (RO)+ :GET TRACK/SECTOR IN BUFFER 

MOV (RO)+ *KEYL IN BUFFER 

MOV a0" RO)+ sKEVe IN BUFFE 

MOV #256. .R1 ATA WORD COUNTER 

MOV #52525, Re :DATA 

MOV Re, (ROS+ *DATA_INTO BUFFER 

DEC RI : COUNT 

BNE 3$ “BRANCH IF 256 NOT DONE 


;*ONLY_ GOOD DATA HAS BEEN PUT IN 'WRFROM’ 
;*NOW THE INSERTED ERROR WILL BE PUT IN 
;*BUT INSERTED ERROR IS IN ECC SO DATA IS NOT WRONG 


SEQ Ce0s 
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042436 004737 045374 JSR PC, JHPUTREG sSAVE REGISTERS 
o4e44e 005037 015126 CLR DHERFLGS ‘CLEAR ERROR FLAG 
;#NOW READ DATA BUFFER WILL BE CHECKED 
004037 046570 JSR RO, J#COMPAR 
015220 FROM 
016264 
oo0404 . R OF WORDS CHECKED 
042466 4g RETURN POINT FOR ERROR HEADER 
42472 ;RETURN POINT FOR ERROR DATA 
042476 ' ;RETURN FOR GOOD COMPARISON 
104004 : ;READ_ NEXT ERROR 
RTS , 


000207 
104005 


R WORDS 
35 TO 260 ARE DATA WORDS 
000207 RETURN TO “COMPAR” 
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TST #85 ¢ ENABLED 38 


gs @ 


oO” 


CMrrrmuw 
oO 


if 


-~g- 
-§- 


Ct edo--€ 


COON OMM Tro 


dade tt itt 


BeCRReGeSH 


(hEDED LONDEDED ED 


- O-* 0-6-6) «9 <0 <0 <9 


NU £ lure 


Lizeqvepsonenmercenaayewepneategnenanenenannananp ena mmnnn anne 
#TEST 66 . READ ECC ENABLED 3C 


THIS IS AN ECC READ DATA TEST 
re CORRECTION IS ENABLED 

NON CORRECTABLE ERROR IS INSERTED IN BIT POSITION 296 THRU 308 
THis 1S TN GORD RUPBER 19 AND e0 


S OF Seses 
COMMAND IS GIVEN FOR CYLINDER O FORMAT 16 git PER WORD 
TRACK 0, SECTOR O KEYS O READ HEADER AND DATA 


Oe eo oe 


} Lo 2 Sgpeenpeggr represen 
MOV #STACK, SP RESET | 
MOV BTTNO,aaTSTNM  ;THIS Saves” TEST NUMBER 
-*SETUP FOR WHAT IS TO BE READ 
:#HEADER CRC IS RESTORED FROM A SUBROUTINE 
MOV #52525,-(SP)  ;DATA TO BE READ 
MOV #256. ,RS : COUN 
MOV #OISK;RO :START OF SIMULATED DISK DATA 
18: NOV (SP), tRO)+ sMOV VE IN DATA ON TO SIMULATED DISK 
ONE ! :BRANCH IF 256 NOT COMPLETE 
TST (SP)+ :UNDO =(SP) 
CMP (RO)+,(RO}+ TU OVER THE TWO ECC WORDS 
MOV #15., RS A GAP 
SLERANCE GAP 
23: CLR (RO)+ fhm DATA GAP, AND 
DEC RS : TOLERANCE GAP 
BNE 2 “BRANCH IF NOT COMPLETE 
ISR PC, JeFILLEC s INSERT THE TWO ECC WORDS ON THE DISK 


;IN THE CORRECT PLACE 
;#THESE ARE FOR ECC TEST ONLY 


MOV 8-1, a8TSECC ;THIS IS AN ECC TEST 

CLR asePOSITI :CLEAR ERROR POSITION COUNTER 
MOV DSNCODE, ISNCOUNT’ ; TEMPORARY N-CODE COUNTER 

MOV JBHARDER, JRHADTMP ': TEMPORARY HARD ERROR COUNTER 


CLR guceCCl sE Ce LOW ORDER. 19, ec GENERATED 
te AY NV FE EE CONT 
éLR sah ies Stee ‘BIR EVEL ROS CLOCK COUNT 


s#THESE ARE TO SETUP FOR DISKLESS USE ONLY 
MOV #FMT22,98CYL 316 BITS PER WORD 











PREAMP RDO Mas See tee team CREEK MEN TERS 


ne eae ee; 


00S977 
004737 


909009 
013711 
005937 
004737 
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054322 
054324 
043074 


1S20le 
152006 


009001 
151776 


. JSR PC an 350. <4. ruc ; 3 SETUP offen REGISTERS. 








. TR! CPnCK O QO, FORMAT 16 BITS 
HOVE aO:SaSECOTR — gecToR 0 


HOV 3 SEE eo eee 


MOV oe wt A WORDS 

CLR a This is A READ COMMAND. 
oy RS, Decne © CALCULATE CRC 

Wc 


THe IS TO INSERT Ay ROR 
DISK DATA IS_IN LOCATION STARTING FROM ’DISK’ 


POSITION OF THE ERROR CAN BE CHANGED BY CHANGING 
aT MOVE 
MOV - #152652, DUD 1SK+44; INSERT ERROR. IN POSITION 296 THRU 304 
MOV 852532, DaDISK+46; NSERT ERROR In POSITION 305 THRU 308 
IN WORD NUMBER 20 
MOV £4128. , 2898S : INSERT POSITION REG. 
;¥THESE ARE REGULAR SETUPS , RY 


MOV 
MOY sREIN TO "3AteR :EFRATING ADDRESS OF READ BUFFER 
IN LOWER BYTE GET SECTOR 


MOVB #0, 1 (SP) :GET eaeer IN HIGHER BYTE 
MOV (SP)+, @RHDST ;TRACK/SECT it RHOS 
MOV aPnT23, ORHOF $16 BITS : 
sBCC COR wa NOT NHIBIT 
S NOT 
:TO BE BE CHECKED 
CR RR eecHECKT --EEHECRCBCACROY. DPR. DRY = 1 AND OTHERS DON’T 
TYPE ,CPHALT : CANNOT CONTINUE TESTING tf ANY OF T 
‘ABOVE BIT DON’T = 1 OR OTHERS ARE STUCK 2 1 
HALT STOP THE 
MOV JSREFOR, RL *READ HEADER AND DATA=72 
CLR JSERFLGS CLEAR ERROR FLAG 
JSR PC, a8COMHD ?R ADER AND DATA 
ERRORS THEN 





31 ARE READ 
;ECC WILL NOT BE CHECKED 








F THE PROGRAM COMES BACK HERE W ereeR PRINTOUTS 
TPR on THE Mgt alt’. | ml. ness, SECTOR 





:#FIRST SYNC HEADER RGAE BND’ 
inbetecteoe ave wach BY AND Syne hi RERE CORRECTLY 








;#HEADER AND DATA ARE TO BE CHECKED. 












fe Sasose ON7S? o¥sa7y 
3036 022737 100000 






043050 013746 059370 
174008 
015066 


043070 904037 951012 


043076 004737 045374 
043102 022737 100100 


Serre pi cl kes 


es co roo 

TERNS oho BRS 
rite 

RS 

8 

gS 


£904 


aye 
: 


s 
S 


at ey ey et et et at 
3 


o 
wo 
~ 
o 
4 
w 
-— 
iH 
OOO000e}-00 


S 
g 
2 
a 


o 
8 
g 
3 
3 


ears O43024 005737 015126 


015036 


015036 


000001 


6$: 


9S: 


3$: 
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ty CHECKING READ DATA THE WRITE FROM BUFFER 


cheno oka a WITH EXPECTED DATA AND 


asERFLGS 


re SpUTREG 
32 


QGECC1,-(SP) 
#174000; (SP) 
(SP)4, aeeCe 


RO, J#ECORR 


PC, J#PUTREG 
aDCKTECH, JER] 


9$ 
36 


PC, JaCHECKE 
, CPHALT 


SWRFROM, 80 
ag! FNTee, (RO)+ 


See Tey ALREADY THERE 


Sve REGISTERS 

NLY DATA CHECK ERROR SHOULD BE SET 
BRANCH IF YES 
: IT ECC REGISTER SHOULD BE NON 


;ONLY 11 OF THE 32 BITS CAN BE SEEN 
Ok SH OLD Be orf IN RHERI 

IGET PATTERN REGISTER 

KEEP "Y 11 BITS 

;COMPR-: PATTERN REGISTER 


:BRANCH I 
11 BITS OF THE 32 BIT ECC REGISTER INCORRECT 
;G0_ TO ECC CORRECTION PROCESS 


;EXPECTED POSITION REG. WHEN CORRECTION 
31S COMPLETE 


:32 
ze 


ow 


TERS 
;WITH ERRORS INSERTED IN BIT POSITION 21 
HARD ERROR BIT SHOULD SET 


;WITH ERROR INSERTED IN BIT POSITION 21 THRU 
SHOULD SET 


5 CHECK THAT DVA, RDY DPR. ORY | 
TINUE IF THEY DON’T 

Se TOP THe oma AND nettel PROGRAM 

:GETTING READY TO FILL EXPECTED DATA 

*CYLINDER O 


;DA 
pare INTO BUFFER 


TBRANCH IF 256 NOT DONE 


;#O0NLY GOOD DATA HAS BEEN PUT IN ’WRFROM’ 


:#NOW THE INSERTED ERROR WILL BE PUT IN 
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6 
baer 043200 012737 152652 015274 MOV #152652, JHWRFROM+SY; INSERT T ERROR IN P POSITION 296 THRU 204 
6 043206 012737 oS2532 015276 MOV #52532, daWRFROM*EG: INSERT ERROR IN Position 30S THRU 308 
p30 : PA LIGRD NUMBER 20 IN 

6932 043214 004737 045374 JSR PC, J#PUTREG ;SAVE REGISTERS 

6333 043220 005037 015126 CLR asERFLGS :CLEAR ERROR FLAG 

be ;#NOW READ DATA BUFFER WILL BE CHECKED 


§938 043224 004037 046570 JSR RO, J#COMPAR 
043230 WRF ROM 


000404 ‘ ae OF WORDS CHECKED 
6342 PSsan 043244 4$ RETURN POINT FOR ERROR HEADER 
04 043250 S$ RETURN POINT FOR ERROR DATA 
6945 O43242 043254 TST67 ;RETURN FOR GOOD COMPARISON 


6947 043244 104004 4§: ERROR 4 ;READ NEXT ERROR 

6948 O432e% 000207 RTS PC RETURN TO ‘Som 
6949 O43eS0 104005 Ss: ERROR 5 : WOR ey 1 TO 4 ARE 
£950 ; HEADER 

695! 35 T 3 360. ARE DATA WORDS 


C RETURN TO “COMPAR” 
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b3ed i+ 1--haleeeheieheiel 
6956  ETEST 67 READ E ED 30 
6957 i 
bes ;* shooe i AN oe ts } 
3 2 EO INSERTED IN BIT POSITION 32 AND 4096 ’ 
6961 ii ate LAST DATA 
bees + OMMAND I IS UE TVER N sae HORDS_OF SESS al’ BITS PER WORD 
364 1% TRACK 0, Sc CTOR 0 KEYS O READ HEADER AND 
pare © KESKKSLSRESEASRELES EAE RE RAK AREREEEAFRALALE ELL AA LA LES LALA LALLELE 
6967 043254 000004 tSte7: 
6368 043258 012706 001000 MOV #STACK, SP ;RESET STACK 
6970 043262 012737 000067 017330 MOV #TTNO,38TSTNM ;THIS SAVES TEST NUMBER o jl 















6973 -#SETUP FOR WHAT IS TO BE READ 
974 ;#HEADER CRC IS RESTORED FROM A SUBROUTINE 
6976 043270 012746 OS2525 MOV #52525,-(SP)  ;DATA TO BE READ 
6977 043274 012705 O00400 MOV #256., > COUN 
6978 043300 Ole700 OoS4256 MOV #OISK:RO :START OF SIMULATED DISK DATA 
043304 011620 1S: MOV (SP), (RO)+ *MOVE IN DATA ON TO SIMULATED DISK 
043306 005305 DEC RS : COUNT 
6981 043310 001375 BNE 1$ “BRANCH IF 256 NOT COMPLETE 
6982 043312 005726 TST (SP)+ *UNDO -(SP) 
6983 043314 O22020 CMP (RO)+, (RO)+ JUMP OVER THE TWO ECC WORDS 
6984 043316 012705 000017 MOV #15. ,RS 31 DATA GAP 
6985 714 TOLERANCE GAP 
$986 043322 005020 2S: CLR (RO)+ :CLEAR DATA GAP, AND 
6987 043324 005305 DEC RS : TOLERANC! 
- 6988 043326 001375 BNE 2 BRANCH IF NOT COMPLETE 






£991 043330 004737 051164 JSR PC, d#F ILLEC ; INSERT THE TWO ECC WORDS ON THE DISK 
baa IN THE CORRECT PLACE 















933 

eae ;#THESE ARE FOR ECC TEST ONLY 

6996 04 012737 177777 O1S144 MOV Sh asTSECC ;THIS IS AN ECC TEST 

6997 O43342 005037 d5040e CLR wPOSITI CLEAR ERFIR POSITION COUNTER 

6998 04 013737 050376 O0S0400 MOV SENCODE Q#NCOUNT ; TEMPORARY N-CODE COUNTER 

013737 OSO404 a #HARDE : RROR 

7000 005037 

7001 943366 005037 deGECC ;ECC HIGH R_TO BE GENERATE 
04337e 005037 OSO406 CLR aeDATENV ;CLEAR DATA ENVELOPE CLOCK COUNT 

7003 043376 005037 OS0410 CLR aeZ2CODE ;CLEAR LEADING ZEROS CLOCK COUNT 






;*THESE ARE TO SETUP FOR DISKLESS USE ONLY 





aeaistee tee RPOW/S/ 


043402 012737 


a 


sssssssae 
OONIWUILEL Wu 


7020 

1 
7024 
7025 
7026 
7027 
7028 
7029 
7030 
7931 
7032 
7033 
7034 
7035 
7036 
7037 
7038 
7039 
7040 


6 OSKLS C 
READ 


151234 
151230 


000001 
151220 


TROLLER TST-PT 2 
ECC ENABLED 30 


pets ofex TQ iN SERT_ ERROR 
K_DATA IS 
THE POET ION OF 
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316 BITS PER WORD 


aFNT2e, JeCYL 
R O, FORMAT 16 BITS 


#0, J#SECOTR+1 
#0, a8 a OTR 
#0, rt 


aKEY 
fete onde 
ae. asCRCc 


:NO. OF DATA WORDS 
‘THIS IS A READ COMMAND 
‘GO TO CALCULATE CRC 


R 
LOCATION STARTING FROM *DISK’ 
ERROR CAN BE 


IN 
THE CHANGED BY CHANGING 


:¥THIS MOVE 


;*IF T. 
j #EROM 


ii ae eine HEADER, HEADER CRC 


;#SYNC B 


#152525, 8DISK+2 ;FORCE ERROR ON BIT NUMBER 32 
wi5eoe5 ee TeKt ose #2) ;FORCE ERROR IN BIT 4096 
., aees s INSERT POSITION REG. 


ARE REGULAR’ SETUPS 


PC GHCLDISK. ; SETUP GENERAL REGISTERS 

#-256 JRHWC $256. DATA 4 HEADER WORDS 
ny ae ‘STARTING ADDRESS OF READ BUFFE 

1(5P) 

opts JRHDST 
ePMT23, JRHOF BITS PER WORD 
ECC CORRECTION NOT INHIBIT 
“BECAUSE ECC IS NOT GOING 
:10 BE CHECKED 
JRHCA YLINDE 


PC, SCHECKT E04 pve RDY,OPR,ORY = 1 AND OTHERS DON’T 
, CPHALT ConT INUE TESTING if ANY OF 
BOVE ia: OR OTHERS ARE TEE ick a1 
STOP THE reer" 


DHREFOR, OR} ;READ HEADER AND DATA=72 
JHERFLGS *CLEAR ERROR FLAG 
PC, J#COMHD ADER AND DATA 
*IF THERE ARE READ ERRORS THEN 
“ECC WILL NOT BE CHECKED 


PROGRAM COMES BACK Re ee THOUT SECTOR GAP, PRINTOUTS 
HE “COMHD” ROUTINE T 
HEBOER GAP 


AND’ 
YTE HAVE GONE ie AND SYNCS WERE CORRECTLY 


; #DETECTED 


SEQ 0212 





2 


TERROR & 


3 
3 


Sr 





“DZRJH-A,RPG4Y/S/6 DSKLS CONTROLLER TST-PT 2 
HA. TST t6?7 READ ECC ENABLED 30 


;#HEADER AND DATA AR 
hes ese READ 


: : ¥COMP 
043602 005737 015126 TST 
043606 001111 BNE 
043610 004737 045374 JSR 
pisels 022737 100000 015036 CMP 
3622 00140} BEQ 
043624 O32 ERROR 
043626 9013746 050370 $$: MOV 
O43632 O42716 174000 BIC 
a 015066 MP 
3642 001401 BEQ 
043644 ERROR 
O43646 004037 051012 7$: JSR 
043652 000000 8S: . WORD 
043654 004737 645374 JSR 
022737 100100 015036 CMP 
001401 BEQ 
043670 36 ERROR 
043672 95 
7e 004737 046120 JSR 
043676 104400 005124 TYPE 
000000 HALT 
3704 Q012700 015220 MOV 
043710 012720 010000 MOV 
043714 112746 000000 MOVB 
3720 112766 000000 000001 MOVB 
043726 012620 MOV 
043730 012720 000000 MOV 
043734 012720 000000 MOV 
043740 012701 000400 MOV 
043744 O12702 OSeSe5 MOV 
043750 010220 3$: MOV 
3752 005301 DEC 


& 
2 
8 
a 
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#OCK'ECH, J#ERL 


sWRFROM, RO 
ag! FITee, (RO)+ 
#0, -(SP) 
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10 He oH CHECKE 

RITE Poon BUFFER 
OM” IS FILLED METH EXPECTED DATA AND 
SONS ARE MADE 


s ANY ERRORS ory a THERE 


: SAVE REGISTERS 
ONLY DATA CHECK ERROR SHOULD BE SET 


H 
i32 BIT ECC REGISTER SHOULD BE NON 


ONLY 11 OF THE 32 BITS CAN BE SEEN 
; pIN THE PATERN REGISTE 


;GET PA 

;KEEP ONLY 11 BITS 

; COMPARE PATTERN REGISTER 

at BITS OF THE 32 BIT ECC REGISTER INCORRECT 


;GO_ TO ECC CORRECTION PROCESS 
EXPECTED POSITION REG. WHEN CORRECTION 


;SAVE REGISTERS 

sWITH ERRORS INSERTED IN BIT POSITION 32 
SAND 4096 HARD ERR OR BIT SHOULD SET 

;BRANCH IF GOOD 

WITH ERROR INSERTED IN BIT POSITION 21 THRU 
32 HCE SHOULD SET 


: CHECK THAT DVA,RDY,DPR,ORY = 1 
“CANNOT CONTINUE IF THEY 0 N’T 
: STOP THE omy AND RESTAR BROGRAN 
;GETTING READY TO FILL EXPECTER DATA 
CYLINDER 
; IN LOWER BYTE GET SECTOR 
RACK IN HIGHER BYTE 
GET TRACK/SECTOR IN BUFFER 
*KEYL IN BUFFER 
iEYe IN BUFFER 
DATA WORD COUNTER 


308 
sDATA_INTO BUFFER 
;BRANCH IF 256 NOT DONE 











+ bb h- 2 b-= b= p— b> Pe 


REAARARSARAASARA ASSO 


“I 


eee 
=~ 5BBN 





DoRdNA. fS1 


RAZOR BBBVERPLOVS soe 


te? 


012737 
012737 


005037 
004737 
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READ ECC ENABLED 3D 


1SeSeS 015232 
1S2SeS 016226 


015126 
045374 


046570 


4$: 
SS: 





~ 






;#ONLY GOOD DATA HAS BEEN PUT IN ’WRFROM’ 
;*NOW THE INSERTED ERROR WILL BE PUT IN 


MOV #152525, JeWRFROM+<S#2> ; INSERTED ERROR IN BIT 32 
MOV #152525, JaWRFROM+<259.%2} ; INSERT ERROR IN BIT 4096 


CLR asERFLGS ;CLEAR ERROR FLAG 
JSR PC, d#PUTREG ;SAVE REGISTERS 


;#NOW READ DATA BUFFER WILL BE CHECKED 





JSR RO,O¥COMPAR ©, CHECK 

WRFR ;G00D BUFFER (CHANGED) 

REINTO ;TEST BUFF 

4+256. R OF WORDS CHECKED 

4g ERETURN POINT FOR ERROR HEADER 

5S ;RETURN POINT FOR ERROR DATA 

TST70 ;RETURN FOR GOOD COMPARISON 

ERROR 4 ;READ_NEXT ERROR 

RTS PC ;RETURN TO “COMPAR™ : 

ERROR 5 eave NOS 1 TO 4 ARE aor 
$f 260 ARE. DATA WORDS . 





RETURN TO “COMPAR” 
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DZRIHA. TS RURSORY INTERRUPT LOGIC TESTS 


7142 -SBTTL CURSORY INTERRUPT LOGIC TESTS 


71 om ih. an Pana tte ee ee 

Z147 #TEST 70 PROGRAM INTERRUPT 

a - PRO: INTE! IS TESTED BY SETTING RDY AND IE 

71 x IN S1 AT RR Late Tike 

7151 3% THIS SHOULD INTERRUPT THROUGH LOCATION 254 

71 i T ESSOR PRIORITY TT 

71 SHEKHAR RA RAR AKALARLRA LEAR LEAR RL AR RARALAALRA KE AA RL HALL AREAL AE LEAE 

ist 044032 900004 igeret SCOPE 

7156 O44034 012737 000070 017330 MOV #TTNO,d#TSTNM ;THIS SAVES TEST NUMBER 

s137 owcs2 012706 001000 - MOV 8STACK, SP *RESET STACK 

7159 O44O46 004737 O4S6 JSR PC, #CLDISK ;CLEAR_ DISK 

160 o440S2 wRPVEC RO T 

? O44056 

7162 O44062 O01 MOV ) 

7163 O44065 012737 000200 177776 MOV SSOR 

iby 044074 012711 000300 MOV #ROY! TE ORI RDY IE IN RHSC1 SHOULD CAUSE INTERRUPT 

7165 O44100 013737 046244 001200 MOV so @RTIMCNT. JASTMPL COUNTER A ? 
7166 O44106 001200 1S: DEC aeSTMP1 SWAIT FOR INTERRUPT bey ts 
7167 O4411l2 001375 BNE 1$ IF NOT ZERO 

7168 | t BEF ORE THIS IS ZERO INTERRUPT SHOULD 












7170 O44114 004737 045374 : JSR PC, J#PUTREG SAVE REGISTERS 
7171 O841e0 104021 ERROR el ; INTERRUPT DID NOT OCCUR 


7173 O44l2e 900410 BR TST71 ; BRANCH TO NEXT TEST 


7175 ~O44124 O2eb26 RPTRP1: CMP (SP)+, (SP)+ ;RESTORE STACK 
7176 O441e6 004737 045374 JSR PC, J#PUTREG SAVE REGISTERS 
7177 O44132 022737 OO4e00 015034 CMP wDVA'RDY,d#CS1 ;°IE" SHOULD BE 
7178 O84140 001401 BEQ TST71 : BRANCH 00D 
7179 «O4414e §=1040e1 ERROR el BUT 


; INTERRUPT OCCURRED 
7180 ;°IE’ FAILED TO RESET 
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7181 

71 

318s ict 71” INTERRUPT AT PROCESSOR FO@ D X SSSLEX RERKERKEK ARREARS 
71g4 T 71 INTERRUPT AT PROCESSOR AND DISK PRIORITY SAME 
7186 - PROCESSOR PRIORITY Is SET AT S (SAME AS THE DISK) 

71 # IE AND RDY IS SET. THIS SHOULD NOT INTERRUPT 

7188 PETTTTTTTESTOLTCTOTSTS STITT TESTIS TTT ETT TTT TT ITT TTT ETT eT TTT 
7183 044144 000004 +8171: SCOPE 

7191 O44146 012737 000071 017330 MOV #TTNO,aTSTNM ;THIS SAVES TEST NUMBER 

riz O441S4 912706 001000 MOV #STACK, SP *RESET STACK 

7194 O44160 004737 O4SeTe - JSR PC, J8CLDISK ;CLEAR DISK 

7195 O44164 013700 014746 MOV JRPVEC, RO “GET VECTOR RODRESS 

719% O44170 012720 044230 MOV #RPTRP2:.(RO)+  ;SET INTERRUPT VECTOR 

7197 044174 012710 000340 MOV #340, (RO) -SET SERVICE ROUTINE PRIORITY 
7198 O44200 012737 000240 177776 MOV #240 - sSET PROCESSOR PR 

7199 O44 012711 000300 MOV #RoY! IE IN RHSC1 TO TbULD CAUSE INTERRUPT 
7200 O442l2 013737 046244 001200 MOV Sur IHG, SaSTNPL: UNTER 

7201 O44 001200 1S: DEC oes The ;WAIT FOR INTERRUPT 

7202 O44224 001375 _ BNE 1$ T ZERO 

7203 ;BEF ORE Hire IS ZERO INTERRUPT SHOULD 
720s o44226 000404 BR TST7e2 : NO INTERRUPT SO BRANCH 
7207 O44230 022626 RPTRP2: CMP (SP)+, (SP3+ sRESTORE STACK 

7208 O44232 004737 045374 JSR PC, HPUTREG : SAVE REGIST ERS 

7203 O44236 104021 ERROR 21 INTERRUPT OCCURRED WITH 

7210 “PROCESSOR STATUS SAME 

7ell “AS DISK 

Tele 

7213 

7214 


N‘N 
Tu 
- 
uw 
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DZRJHA. TST t71 INTERRUPT AT PROCESSOR AND DISK PRIORITY SAME 


pees 000001 O0iele 


045674 


000000 
at 044270 


13746 015114 


226 
Sz 


eal i 


2 
ai 


ang 


B= 
Or 
bs pe 


37 015114 
37 OeeSs4 


ee eee 


177776 


5 RERERARRAA AREA E LAER EERE ELLE EERE ARE RAL AAA ARAA ERA AE ERE AALL ARE 
HHH HEHE HEHEHE GHEE abe 
ste 72 END OF 


e THIS IS THE END OF TEST FOR ONE DRIVE 

:# IF THERE ARE MORE DRIVES THEN THE PROGRAM 

3% JUMPS TO TEST S FOR NEXT DRIVE TEST 

3% END PASS IS REACHED ONLY AFTER ALL DRIVES ARE COMPLETE 


jj RH RRR EERE RERERRRRE REL EERE ELLE AE EE ERE EERE REAR EEE ERE EERE RE 
t$1T72: SCOPE 
MOV #1, STIMES ;:D0 1 ITERATION 
. JSR PC; JHCLDISK 
MOV #0,PS ;REINSTATE PS TO 0 
TYPE 65S 33 TYPE ASCIZ STRING 
BR 4§ *GET OVER THE ASCIZ 
igg5: "ASCIZ <15><12>/TOTAL ERRORS ON THIS PASS ON UNIT NO./ 
HOY QSUNIT,-(SP)  ;GET READY TO TYPE UNIT NUMBER 
TYPE 67S 11 TYRE ASCIZ STRING 
BR 66$ *GET OVER THE ASCIZ 
i878: .ASCIZ /=/ 
HOV DSSERTTL,-(SP) ;GET READY TO TYPE NUMBER OF ERRORS 
CLR OeSERTTL ;CLEAR TOTAL NUMBER OF ERRORS 
CLR aaSTSTNM >CLEAR TEST NUMBER 
TST aeSELECT “STARTING FROM 200 ? 
BEQ 3$ TEST NEXT DRIVE IF SO 
INC aaSPASS : INCREASE PASS COUNT 
TYPE SENDMG TYPE END PASS # 
MOV JeSPASS, -(SP) 
TYPDS 
TYPE SENULL 
IMP deTsTs sCONTINUE TESTING THIS DRIVE ------------ 
3S: DEC J#NOUNITS NO. OF UNITS PRESENT DECREMENTED 
BEQ SEOP *BRANCH IF ALL DRIVES COMPLETE 
MOV JSUNIT, RO ‘UNIT UNDER TEST 


: TABLE 
1S: CMP (R1)+,RO 1S THIS UNIT JUST TESTED 
BEQ «ss BS ;BRANCH IF YES 


BR 1$ H 
es: MOV (R11), I8UNIT THIS IS NEXT UNIT 


IMP aaTSts STEST HEXT DRIVE <necccenecnnencenee 


SEQ 0217 
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DZRJHA. SUB t72 END OF DRIVE 
7264 ; 
.SBTTL 
-SBTTL ##*SUBROUTINES##* 
726 ‘SBTTL 
7269 
7270 
7271 
eve .SBTTL END OF PASS ROUTINE 
7274 © REAKAARAKERARE SERA RHEL ERASE RA LEA HAAE RASH RE LHAAKRALERA SHAKER ARKEE 
SLINCREMENT T THE PASS NUMBER ($PASS) 
7276 S#TYPE “END PASS SXXXXX" (WHERE XXXXX IS A DECIMAL NUMBER) 
7277 *#IF THERES A MONITOR GO TO IT 
7678 ; :#IF THERE ISN’T JUMP TO TST1 
044470 SEOP: 
7281 O44470 OOD004 "SCOPE 
7282 O44472 005037 001102 CLR STSTNM 33ZERO THE TEST NUMBER 
7283 O44476 005037 O0l2le CLR STIMES ZERO THE NUMBER OF ITERATIONS 
7284 005237 001100 INC SPASS sSINCREMENT T THE PASS NUMBER 
7285 042737 100000 001100 BIC #100000,S$PASS +;DON’T ALLOW A NEG. NUMBER 
7286 O44514 005327 DEC (PC)? ; LOOP? 
7287 O44516 O00001 SEOPCT: .WORD 
7288 003022 BGT SDOAGN 5s YES 
7289 O445e2 012737 MOV (PC)+,a(PC)+  ?:RESTORE COUNTER 
7290 O44524 000001 SENDCT: .WORD 
7291 O44S26 O44SIE SEOPCT 
7292 044530 104400 TYPE SENDMG ;;TYPE “END PASS #* 
7293 044534 013746 001100 MOV $PASS,-(SP) ~ ::SAVE SPASS FOR TYPEOU 
_ 7294 O44540 104404 TYPDS G0 TYPE--DECIMAL ASG WITH SIGN 
7295 O44542 104400 0O44572 TYPE SENULL ss TYPE A NULL CHARACTER 
73 013700 oo004e SGETY2: MOV dee >:GET MONITOR ADDRESS 
O44SS2 001405 BE SDOAGN >:BRANCH IF NO MONITOR 
7298 O445S54 000005 RESET : CLEAR 
7638 Pana 004710 SENDAD: JSR PC, (RO) G0 TO MONITOR 
7. 000240 NOP 3; SAVE 
7301 O44562 000240 NOP ::FOR 
7302 O44564 000240 NOP *:ACT11 
7303 O44S66 SDOAGN: 
7304 O44566 000137 IMP a(PC)+ ; ; RETURN 
7305 044570 021034 SRTNAD: .WORD TeTl 
7306 044572 377 377 000 S$ENULL: .BYTE js NULL CHARACTER STRING 
7307- 044575 015 O4e412 O42116 SENDMG: .ASCIZ 748) t15> “END pass’ # 
7308 O44602 OS 0S1S01 020123 
7309 044610 000043 


; Fe ee eLearn ip rtcertite 
: #HE A DETAILED EXPLAINATION OF HOW THE LOOP ON ERROR WORKS. 
; ON RAITTING AN ERROR IF THE LOOP ON ERROR SWITCH IS SET, THE 


cicdcscseseses 
ET ST aT eT and are 
NOU £WrUe©O 


Qo 
i 
i 
—s 


PRORRERSS 


z 
N 


sapeaaaaaa 


ere 


08 


SLSLH fF 8 


23 


177776 
044626 


017330 


044704 


001110 


001223 
044754 


045036 


045104 


zo 


1 


& 


7 


rT 
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PAS NE 


; PROGRAM GOES BACK - USUALLY BACK TO THE BEGINNING OF THE TEST. 


p+ et R THIS reece a ee pe ag LOOP IS USED THEN THE POINT 


| ine einic ore 11H Ente INT GHERE THE’ Poca CAN GO ARE: 


ST aunbeR CONSIDERATION 
te THE T OCC hay fe Te RATION 
thee ea cu ‘; cn ARMIN THE “TEST UNDER. CONSIDE TION 
TEST ener We UL fe Fro, THES NOPERATOR eee eer ABLE HOE OpE” Lb0P IS USED 
THEN THE PROGRAM W IT 


LOOP BACK TO THE SELECTED POINT WHEN 
; #COMES TO THE END OF “THE TEST UNDER CONSIDERATION. 


i SOFTER LOOPING FOR SOME TIME IF THE LOOP SWITCH IS PUT DOWN THEN 
— OPERATION WILL CONTINUE. 
[EHH HEHEHE HHHEEE 


TESTAD: O FIRST ADDRESS OF TEST 
OPERSEL: ! 
cL PS ;MAKE PROCESSOR STATUS ZERO 
TYPE 65S 33 TYPE ASCIZ STRING 
BR 645 “GET OVER THE ASCIZ 


+:65$: -ASCIZ (15><12>/THE PROGRAM WAS IN TEST NUMBER / 


MOV O8TSTNM, -(SP) iY READY TO TYPE TEST 
TYPE 67S ; $3 TYRE ASCTE STRING 


BR 66S GE THE jpsci2 
jj878: "ASCIZ <15)<12>/THE LOOP’ BACK PC WAS / 
“MoV DeSLPERR,-(SP) ;GET READY TO TYPE LOOP BACK PC 
Re , SCRLF 
TYPE 69S TIPE ASCIZ STRING 
BR 68$ “GET OVER THE ASCIZ 
jib9S: "ASCIZ <15)<12>/SET LOOP’ON ERROR OR LOOP ON TEST SWITCH/ 
= we 71$ ; 3 TYPE ASCIZ STRING 
BR 20S *GET OVER THE ASCIZ 
i218: “ASCIZ (15<12>/TYPE THE FIRST PC OF THE TEST/ 
: TYPE 73 3 sTYPE ASCIZ STRING 
BR 25 *GET OVER THE ASCIZ 
55738: "ASCIZ <15)<12>/ FOLLOWED BY A CARRIAGE RETURN /<15><12> 
* —- RDOCT 
ADD #2, (SP) GET LPADR 
MOV. (SB), J#SLPADR 


TYPE - 33 TYPE eects STRING 
T THE ASCIZ 


BR te GE 
3;75$: .ASCIZ <15><12>/TYPE THE’ PC WHERE YOU WANT/ 
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END OF PASS ROUTINE 


74S: 
4778 $3 Pe naele nite 


aR +65 OVER lz 
ij278: : -<15><12>/ THE prbinen 0 oor Bre © FOLLCWED BY A CARRIAGE RETUSN <1 


(ss et oe ;GET LPERR 


MOV a 
-THIS CLEARS UP RRARBAGE 
LR aeNOSYN CLEAR FLAG FOR HEADER ERROR COMMANDS 
€LR sersece: CLEAR F LAG FOR ECC TEST 

:WHEN =177777. IT IS AN ECC TEST 

: WHEN = IT IS NOT AN ECC TEST 


C4S362 CLR aeTSECCG ;EVEN IN_AN ECC TEST EVERY CLOCK 
; NERATE w?. 


. HE 00 NOT 
O45366 ? oo } QeTESOTE BRIVE TIMING ERROR TEST 


o4537e2 













74 


Eee: 


eeteseeee 
ONOWN£WMHO 


NX 
ys 





‘S-6 gsi CONTROLLER TST-PT 2 


aera. — . H-A cae 


LSBTTL SAVE REGISTERS ROUTINE <* 
{POOH ree essere Erase . 

STHIS SAVE TS OF ALL HARDWARE REGISTERS 

SIN MEMORY LOCATIONS TAGED FROM “WC” TO “ 


md PRIN Tie REGISTERS MRETRELYES: TA ALWAYS DIFE OTFERENT 


Rrrerrr rrereerer er ic obesepaeasennennbenabutaecsatenntannponsnnet 


#52 


" 


2000000 
bs = 6 bh bam pw 
a 
Sg 
= 
20 
ae 
oo 


8 


: 


8 
Ww 
a 


g 


Q00 

P= fa es 

a 
oO 
_ 


Re 
10$ 
(SP)+,Re ;;POP ete INTO Re 
(SP)+,R1 ;;POP STACK INTO R1 
ha ;;POP ial INTO RO 


8 
ro 
S 
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S THE CONTEN 







DONE $0 T ARE DONE WITH a. LOCATIONS 






RO, =¢ Py og TACK 
Ri; - (SP) PUSH Ri oh STACK 
#RHWC. RO LETRRTING AD prec’ OF REG 

: STARTING SS OF SAVE LOCATIONS 


sc 
sRHEC RHC 2/2, R2 :NUMBER OF REG. INTO R 
a(RO)+,(R1)+ | ;SAVE HARDWARE REG. 



















SAVE REGISTERS ROUTINE 


aE 


220 
a 


a 


sas 


BoRBRR=REOReRS 
BES duaqees 


O4SES4 


001124 


001126 
CC1126 


MNOEC=11-D2RJH-A,RPOW/S/6 DSKLS CONTROLLER TST-PT 2 
-| OZRIHA. SUB 


EFL 


MASK: 
LERR: 


REGADR: 


BITST: 


1$: 










-SBTTL FLOAT 1 AND O 


are rte eee aeet rte et lll 
HRU A DESIGNATED REGISTER 


*3 1 3H HEHEHE HHH HGH HHH HHH HHH 


0 
MOV 





AND 
; SABSOLUTE ADDRESS OF 


(RS)+, 
(RS )+, 


MACYL1 €7(65S) 


MASK 
RY 


LERR 


BLT2 
BLTe 


BLT1 sBRANCH IF NOT COMPLETE 
RS RETURN TO TEST 

R3 *COMPLEMENT PATTERN 

8BLT3, @sLAD ;SET SC LOOP 

R3, ae$GDDAT -STORE GOOD DATA 

aehAasK :AND MASK WITH PATTERN 
Q8NASK, JSSGDOAT; CLEAR THE REST 

aeMasK’ : RESTORE 

DRSGDDAT,(R4) OUTPUT TO REGISTER 

(RY) ,g8SBODRT : INPU FROM REGISTER 
gEnASK, ,@8SBODAT ;AND MASK OUT RECEIVED DATA 
‘@8SGDDAT, asseooat; 1S DATA CORRECT 
a sBRANCH IF GOOD 

PC, JLERR ;60 TO REPORT ERROR 

ae "LOCAL SCOPE LOOP 
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;B1TS R TEST 
ERROR HLT ADDRESS 


;FETCH DATA MASK 
;GET ADDRESS OF REG. UNDER TEST 


;GET pee RETURN ADDR. 
sMODIFY RETURN ADDR. TO JUMP OVER RTS 
INITIALIZE DATA PATTERN © 

OUTPUT FLOATING ZERO 

OUTPUT FLOATING ONE 


;SHIFT PATTERN 
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MNDEC-11-DZRJH-A, RPOY/S- pO vs CONTROLLER TST-PT 2 


MACYLI 27(655) 
DZRIHA. SUB FLOAT 1 









7460 
7461 .SBTTL CLEAR MEMORY ROUTINE 






7463 
7464 a "it hint be hie et oe 
7465S :& THIS CLEARS ANY BLOCK OF MEMORY 
7466 ii PIECING IT WITH ANY DATA 

f ; 
7468 + CALL 
7469 # JSR RO, CLAREA 
7470 1 x ;STARTING ADDRESS OF BLOCK 
bach 3% Y 
74 : 2 “DATA TO BE FILLED 
7473 ;*R1 WILL HAVE STARTING ADDRESS s OF BLOCK TO BE FILLED 
7474 ;*Re AFTER SUBTRACTION WILL HAVE TWICE NUMBER OF LOCATIONS 
7475 *#R3 WILL HAVE DATA TO BE FILLED 
7476 i470 BOD NDIVIDE ROUTINE TWO DECREMENT Re WILL BE USED 





7477 5 REEREAELARE REALL EEL LA LEELA LA RLLAA ELAR RE AK LARA AERA RAL ERA LAA ERE 










7479 045612 i eae 
7480 O45612 O10146 MOV R1,-(SP) :;PUSH R1 ON STACK 
7481 O45615 010246 MOV Re; -(SP) ;:PUSH Re ON STACK 
7482 O45616 010346 MOV R3,-(SP) “PUSH R3 ON STACK 
7483 045620 012901 MOV (RO)+,R1 ‘FROM 
7484 O4S62e2 012002 MOV (RO)+;Re :TO 
7428S 045624 012003 MOV (RO}+°R3 :DATA 
7486 045626 160102 SUB R1,Re :NO. OF LOCATIONS MINUS TWO 
7487 045630 O62702 o00002 ADD #2'R2 GET TWICE NO OF LOCATIONS 
7488 045634 01032! 18: MOV R3, (R1)+ :MOVE IN DAT 
7489 045636 005302 DEC R2 
SO O45640 DEC Re 
7491 O45642 Sor ara BNE 1$ sBRANCH IF NOT COMPLETE 
7492 045644 012603 MOV (SP)+,83 :;POP STACK INTO R 
7493 045646 O12602 MOV (SP)+;R2 :sPOP TACK INTO R 
7494 O45650 012601 MOV (SP)+'RI ::POP STACK INTO RI 
7495 oO4s65e o002c0 RTS RO RETURN 








MNDEC=11-D2RJH-A,RPO4/S/6 DSKLS CONTROLLER TST-PT 2 
DZRIHA. SUB LocaL TRAPS 


74 
i, SN Ge 


7499 045656 032777 001000 133254 


Ee = 


Bueno RRS sk 


7510 

7511 

718 

751 

7514 7 

eig Bev BIav0e D1Nrs 

7517 045704 013703 015002 

7518 ONS710 13704 14762 
Bueve0 O1Sris OIS114 
045724 0050! 


005011 
G457e6 000207 


partes 
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” oh LOCAL TRAPS 


#SWO9, d@SWR 
eo 


(SP) 


‘> Wit’ LOOP. BPueeN AND SCOP PROVIDED THERE IS NO “NEWTST” 


CLEAR DISK ROUTINE 


@#RHCS2, Re 
d#RHOS1 , RI 
@#RHER] , RY 





mu 

Dm 
D 

wer 


tREINGTATE UNIT No 


CLEAR FUNCTION BITS 









DZRJHA 





NNDEC-11-O0ZRJH-A 
. SUB 


RPOW/S/6 
eLEAR DISK 


DSKL 


015134 
000004 


045374 
004200 


ROU 


CONTROLLER TST-PT 2 


INE 


015134 
015034 


015034 


915034 


015056 


PATHIS CHECKS THA 
;#AND CHECKS THAT DEVICE PRESE 
ie ALSO CHECKS 

TErriteretieritrrertrreritirittttitererttiiritititttertt itt rery 


-SBTTL CHECK DISK STATUS ROUTINES 


Fete eteceet ain arid ie WMciite ted hte Te 
T DEVICE AVAILABLE (DVA) 

NT (DPR) 
OTHER BITS th 


CHECKT: MOV 
Sus 


1$: 


2s: 


4S: 


JSR 
CMP 


MACY11 27(655) 


THAT ALL 


(SP). dePCISR 
#4, JRPCISR 

PC’ J#PUTREG 
BbAIRDY. dacs! 
3 

#DVA, a8CS1 

1$ 


Rl, @eSBDADR 
eye 


3s 

#RDY, d#CS1 
Ri, @#SBDADR 
26 


Tl , J#SBDADR 
26 


_ BRANCH TO RHOS1 CHECK 
TEST READY 
S ADDRESS OF BAD REGISTER (RHCS1 
*RHCS1 Br ate ce igre, 
sAT THE STAR TEST 
: BRANCH 7 NeXT COMPARE 
“ADDRESS OF BAD REGISTER (RHCS1) 
*RHCS OME BITS OTHER 
:T AND RDY 


iT SF RHOS1 

;CLEAR VV PROGRAMABLE BIT 
;RHOS1 HAVE THESE SET 
RETURN TO TEST IF GOOD 
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AND READY (RDY) iN RHCS1 = 
DEVICE READY (DRY) IN RHDSI = ‘ 
THESE REGISTERS = 









i aeye ok PC oF e 


‘ans REGIST ERS 
p HAVE DEVICE AVAILABLE 
: BRANCH IF GOOD TO RHDS! CHECK 


HES READY 1p Ove TH AVAILABLE 


BAD REGISTER (RHCS1) 
sRACSL BID. NOT HAVE DEVICE i 
jAVATLABLE AT START 4 TEST 
























SO OM IF ORIVE PRESENT 
ADDRESS OF bab REGISTER (RHDS1) . 
S DPR 
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DZRJHA. SUB QHECK DISK STATUS ROUTINES 


000207 _ 8: PC RETURN NTO Hee BN UHAL TS" FATAL ERROR 


062716 O00006 8$: ADD #6, (SP) ;AD fuer TACK PTR TO GET OVER HALT IN TEST 
000297 RTS PC RET. 0 TEST AND CONTINUE TESTING 


bTHTe CHECKS THAT DEVICE AVAILABLE (DVA) AND READY (ROY) IN RCS 
THIS CHECKS THA THAT apevice BVRAILABLE (OVA) y (ROY) ih, RHCS1 = 


;#AND C operas Oe “READY (DR RHOS1 = 7 
salt DOES NOT CHE OTHER NBS tN’ THESE Reats 
 Pbeguduasasuasiassessanssacsausassnsenssasesssesssesssessn00083 


cHecnE: MOV Sg asPCJSR 3 OVE ec oF JSR+4 
SUB SR PC re 


4, aRPCT :GET 
Pc’ aePUTREG SAVE, REGISTERS 
#ROY, 28CS1 1 SHOULD HAVE DEVICE AVAILABLE 
BNO BE RE 


BEBGRHOBRERY § 


uf 
vs 
PP 


Huai 
guages 


1$ iO IF 

RI, axSBOAOR SFAILING REGISTER 

26 sRHCS1 IS IN ERROR 
;DOES NOT HAVE DVA, RDY 


a 
3B 


4§ 
#DVA, aeCS1 ;RHCS1 SHOULD HAVE DEVICE AVAILABLE 
;AND BE READY 


2s 
R1,d#SBDADR 
26 


: ERROR 
:DOES NOT HAVE DVA, RDY 

4§ “BRANCH OUT 

#ORY,d80S1 - — ;RHDS1 SHOULD HAVE DPR, DRY 
R3,a8SBDAOR . FAILING REGISTER RHDS1 

26 Baier Ob NOT HAVE DPR, DRY 


7600 
7601 
7602 
7603 
7604 
760S 
7606 
7607 
7608 
7609 


-_ 
OM fcWwMUH-O 


R 4$ 
C15056 : #OPR,@#DS1 A SHLD HAVE DPR, DRY 
BNE S$ ‘ sBRANCH IF 
R3, d#SBDADR ;FAILING GISTER. RHDS1 
26 :RHDS1 DOES NOT HAVE DPR, DRY 
PC ;RETURN TO TEST AND HALT - FATAL ERROR 


#5, (SP) ;ADJUST STACK TO GET OVER HALT IN TEST 
PC RETURN TO TEST AND CONTINUE TESTING 
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DZRJHA. SUB GHECK DISK STATUS ROUTINES 


.SBTTL WAIT LOOP 

$ SPST SC epee vopenmmesi-sa pcm 
i LOOP OR ONE COUNT = 5.15 MICROSEC MITH BIPOLAR MEMORY (MIN) 
rr ONE LOOP OR ONE COUNT = 11.86 MICROSEC WITH CORE (MIN) 
: WITH CORE ERROR IS INDICATED AFTER ABOUT 6SO MILLISEC (MIN) 

5 RLRLAAAAAAA LAE ELLA ELAL ELLE AERA ARAL ARAL LEA E RE RA LE RARER LEELA EEE 
rome: 177777 sWAITING COUNT 

RESS OF REG. ADDRESS 
N STMP3 
SWALT REGISTER ADDRESS 

4 iRESTORE TURN ON STACK 

STINGNT, aesTHP2! TEMPORARY COUNT 


#STMP1,QSTMPO ;IS REQUIRED BIT THERE? 
“BRANCH IF YES 


vo_—_ 


is & 
B38: 


> COUNT 
:BRANCH IF NOT TIME UP 

MCNT DeSTMP2; TEMPORARY COUNT 
1, aSTMPO 15 REQUIRED gIT THERE? 


#$ 
$ 
aT 
#STMP 
$ 
#$ 


3 3 
a) 


:COUNE IF NOT TIME UP 
TMPO, 28SBDDAT :REGISTER CONTENTS 
WAITED ON BIT FAILED TO SET 


a 
1 
a 
@ 
2 
a 
3$ 
as 
16 


rm 
= 


CALL FOR THE ABOVE WAITLOOP IS 


MOV dA, d8X$ ;A_CONTAINS REGISTER ADDRESS 
- - - ;HENCE X$ WILL HAVE ABSOLUTE REG. ADR. 


WAT 
0 ;ABSOLUTE REG. ADDRESS UNDER WAIT 
-WORD 0 :BIT WAITED FOR 

; CONTINUE 


WK DOE 3K IK RC i oi ie ie ee 
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DZRJHA. SUB WAIT LOOP 


-SBTTL SAVE ROUTINE 


i RANE AeaIS 15 A SUBROUTINE TO READ & SAVE REGISTERS 
;THIS IS A SUBROUTINE TO READ & SAVE REGISTERS 
sIN THE REGISTER TABLE TO ANY LOCATION 
ISR RO, J#SAVER 
;FROM . 
: R OF WORDS SAVED 
53 TETiiiiititiiritiititiitititiiititititiititittttititittiti tite 
SAVER: 


xz 
es 


;;PUSH R1 ON STACK 
;}PUSH Re ON STACK 
;;PUSH R3 ON STACK 
ie 


208 


; NUMBER 
SAVE REGISTER CONTENTS 
; COUNT 
; BRANCH IF NOT DONE 
;POP STACK INTO R3 


: POP STACK INTO Re 
;;POP STACK INTO Rl 


R 
( 
( 
( 
P) 
R 
1 
( 
( 
( 
R 


Sgggnesas 


~SBTTL WRITE CHECK ROUTINE 


p HennOnApenatnananenounnennengsouanesuyenproenneenseoversnaennal 
3 THIS 3A ote 2.08 WRITE CHECK HEADER AND DATA 
» puananubtetborseesbunsescestensonscestonsssesuseussuausonanssece 


;THESE ARE TO SET UP FOR DISKLESS USE ONLY 
#FMT22, O8CYL ; CYLINDER 0 FORMAT 16 BIT WORDS 
#1,a8SECOTR+l ;T 
#1, J8SECOTR 
aeKEY 1 


aekEYe 
#36 


Sacenees 


SS 
-o 


TA_WORDS 
dex ‘THIS IS A READ OPERATION. 
RS, a#CRC ;GO TO CALCULATE CRC 


; THESE ARE REGULAR SETUPS 
JSR PC, d#CLOISK ;SET UP GENERAL REGISTERS 


YAIIIIIIAAA 
Siw Von cor 





MNDEC-11-DZRJH-A,RPOY/S/6 OSKLS CONTROLLER TST-PT 2 
DZRJHA. SUB WRITE CHECK ROUTINE 


146244 
146240 
000001 
146230 


000000 
013711 015170 
004737 OSe200 


000207 
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sAND_ CLEAR DISK, REGISTERS 
:36 DATA WORDS 4 HEADER WORDS 
i STARTING ADDRESS OF READ BUFFER 
; SECTOR=1 
‘TRACK=1 IN UPPER BYTE 
(SP)+. IRHDST ; TRACK=1, SECTOR=1 IN RHDST 
aPMToet ECT ORHOF’: 16 BI 
sECC CORRECTION INHIBIT BECAUSE 
LOGIC IS NOT CHECKED YET 


JRHCA 
PC, JBCHECKT : = 1 AND OTHERS DON’T 
, CPHALT °C STING IF ANY OF THE 

: OTHERS ARE STUCK 2 1 


; STOP S 

;WRITE CHECK HEADER AND DATA=S2 
; INTO RHCS1 

WRITE CHECK HEADER AND DATA 
;SAME AS READ HEADER AND DATA 


Q#WRCHDT , AR1 
PC, d#COMHD 


PC ;RETURN TO WRITE CHECK TEST 
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DZRJHA. SUB WRITE CHECK ROUTINE 


aay | .SBTTL COMPARE ROUTINE 


HHHHEHHHHEEHHHHBEHBHEHBHHE HEHEHE HEHEHE HEHEHE 
ae tATHIS IS A SUBROUTINE TO COMPARE TWO BLOCKS IN MEMORY 


rie ite Is TE Bae SEE HE cmon to cnr seme 


#81 MP1 HAS ADDRESS URN _ON 2a TO PRINT DATA 
G8 We Meme 

= HAS ONE HAN RUMBE WORDS. TO BE COMPARED 
JHHBEHHEHEEHEGHEHHHEHHEHHHH EEE HEHEHE HEHEHE 


conPen: 
MOV 


sazae 


= 
a 


;;PUSH R1 ON STACK 
3 PUSH Re ON STACK 
;PU ON STACK 


Th BUFFER 


) . 
MPO : SR FOP ORIN NT HEADER 
+, STMP1 : ERROR TO PRINT DATA 
RE URN 


ERROR 
OF WORDS TO BE COMPARED 


BReaaae 


& 
Be 


Oo0o0o000o0000 
~ 


Bras bao bs fm bt pis ps fie pas pee pas pee 


ae 


SS BRS 


#ERWORD ss; RROR WORD NO 
+,(Re)+  } WITH TEST DATA 
:BRANCH IF 


046570 
046$70 
046572 
Oues/e 
Odeo 
046606 
046610 
046614 
046620 
046622 
046624 
046626 
046632 
046634 
046636 


), 8SGDDAT 
)? J8SBDDAT 
R3, JHERWORD 
RFLGS 


PC, aSTMPO Lc OQ PRINT HEADER 

Bd BRANCH TO AVOID PRINTING NEXT ERROR 
; RETURN TO PRINT DATA 

;UNDO -(R1) AND -(R2) FOR ERRORS 
ian SONLY SHITCH ? da 8 

ie > Ser ‘ano-a RESET 


seach out IF YES 
;BRANCH IF ALL NOT DEVICE 
;;POP STACK INTO RS 

:POP STACK INTO RY 
:IPOP STACK INTO R3 
siPOP STACK INTO Re 


: STACK INTO RI 
“RETURN TO MAIN PROGRAM 


STMP1 
a. (R24 


7751 
7732 
. 7753 
7754 
7755 
7756 
7757 
ae: 
7763 
. 7764 
7765 
7766 
7767 
7768 
7769 
7770 
7771 
7774 
. 7775 
7776 
7778 
7779 
Me 
7782 
7785 
7786 
7787 
7788 
7789 
7730 
7791 
7792 
7793 
7794 





wu Se 


stalolataatatas 
WONMUICWIUHO 


SERRRRRE 
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. SUB WRITE CHECK DATA | 
.SBTTL WRITE CHECK DATA 
Ree ee TIE 18 h MRATIE 10 00 UNITE GEC DATA 
;THIS IS A SUBROUTINE TO 00 WRITE CHECK DATA 
NDER 0, T 1 SO 
53 POP rer ee Reet ert enet Bet eer HHH 
; THESE ARE TO SET UP FOR DISKLESS USE ONLY 
046732 012737 010000 OS2340 WRCHDA: MOV arnT2e QeCYL. ;CYLINDER O FORMAT 16 BIT. WORDS 
740 116737 1 boes43 MOVB 1, QaSECOTREL | :TRACK=1 _ 
746 11 1 342 MOVB a " DUSECOTR :SECTOR=1 
046754 005037 O0S2344 CLR SeKEYI *KEY1=0 
046760 005037 052346 _ LR aaKEY2 *KEY2=0 
046764 012737 OO00040 oS2420 MOV #32. ,a8DAWORD ;NO OF DATA WORDS 
046772 005037 052350 CLR ax ‘THIS IS A READ OPERATION 
046776 004537 047102 JSR RS, J¥CRC GO TO CALCULATE CRC 
047002 052340 CYL 
047004 054240 WCRC 
THESE ARE REGULAR SETUPS 
047006 004737 045674 ' JSR PC, 3NCLOISK SET UP GENERAL REGISTERS 
SAND CLEAR DISK REGISTERS ‘ 
047012 012777 177740 145732 MOV DATA WORDS 4 HEADER WORDS 
047020 012777 016264 145726 MOV tre Nt aR ORHeA tS BRTING ADDRESS OF READ BUFFER 
047026 112746 000001 ' MOVE -(SP} : 
047032 112766 000001 oo0001 MOVE tL 1(5P) STRACK=I IN UPPER BYTE - 
047040 012677 145720 MOV ORHDST _;TRACK=1, SECTOR=1_ IN RHOST 
047044 012777 014000 145716 MOV BFINTaBTECT, ORHOF” ib I 
CC CORRECT ON IMUBIT BECAUSE 
iECG LOGIC IS NOT CHECKED YET 
047052 005077 145714 CLR JRHCA :CYLINDER=O 
047056 004737 045730 JSR PC, JUCHECKT fate: DVA,RDY,DPR,DRY = 1 AND OTHERS DON’T 
047062 104400 005124 TYPE , CPHALT T CONTINUE TESTING iF ANY OF 
BIT $ Do DON’T = 1 OR OTHERS ARE eck a1 
047066 o00000 HAL? Bi THE 
047070 013711 015166 MOV DSWRCHEK, OR ‘WRITE CHECK bATA= SO INTO RHCS1 
047074 004737 OS2200 JSR PC, aac Contd WRITE CHECK HEADE 
‘SAME AS READ HEADER AND DATA . 


047100 000207 RTS PC ;RETURN TO WRITE CHECK TEST 


MNDEC-11-DZRJH-A,RPOY/S/6 DSKLS CONTROLLER TST-PT 2 
DZRJHA. SUB 


GRC GENERATION ROUTINE 
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-SBTTL CRC. GENERATION ROUTINE 
si H NTS Te A SUBROUTINE TO CALCULATE RC TOR THE FOUR 


: THI OUTINE TO CALCULATE CRC FOR THE FOU 
* HEAD AND STORE THEM IN “WCRC” 

RI - REGISTER FOR CRC, INCREMENTED CRC VALUE IS HERE 
: THIS HAS BIT POSITION 2 VALUE C 

*R3 - THIS HAS BIT POSITION 16 -1.€. OUTPUT BIT VALUE B 
RY - THIS HAS BIT POSITION 1S VALUE E 

:STMPO - R OF WORDS 

:STMP2 - ER OF BITS PER WORD = 16 

;$Tnbs - TE Y REG. 

:STMPY - TE REC TO TRANSFER CARRY 


;FETCH DATA BIT D 


MPORARY 
IMPS - THIS HAS DATA BIT VALUE D 


3B = D XOR 16 

;C = B XOR 2 

;E = B XOR 15 

;ROTATE RIGHT ONE POSITION 
3B GOES TO POSITION 1 

iC GOES TO POSITION 3 

;E_ GOES TO POSITION 16 
REPEAT 64 TIMES 


+ 


a 
010046 MOV 
012500 MOV 
010146 MOV 
010246 MOV 
010346 MOV 
010446 MOV 
005001 CLR 
005037 001210 CLR 
012737 OO0004% 091176 MOV 
2037 001204 16S: MOV 
012737 001202 MOV 
13737 O01e04 001206 MOV 
001204 15S: ROR 
001210 ROR 
701 000001 BIT 
0014 BEQ 
0127) 100000 1 
3 1$ CLR 
063703 0012i0 es ADD 
1 040000 BIT 
001403 BEQ 


JSR RS, ad#CRC 


>FIRST LOCATION 
: PUT 


N AT 
CRC IN WCRC FOR READ GCRC FOR WRITE 
eens Lanenee er ne OR, BERD CORE FOR MATTE 


1 
d4STNPS 
aaSTMPO 

trois gas THP3 
#16. ,$TMP2 

SASTAPS. DaSTHPY 

aeSTMPS 

aaSTMPS 

#BITO,R1 
#B1T15,R3 

2s 

R3 

ISTMPS , RI 
#B1T14,R1 

3$ 


: RO ON STACK 
tere POINTER TO CYL NO. 
STACK 


: N STACK 
PALEAR WORKING LOCATION 


;WORD COUNT 
ET aT WORD STORAGE 


; OUNT 
; TEMPORARY iors STORAGE 
GET LSB INTO “C™ 

ABO mo INTO STMPS 
TS POSITION 15 HIGH 
BRANCH IF POSITION 16 LOW 
;GET POSITION 


par 

22 
are) 
iT) 

[=] 

=z 
—— — 


SEQ 0232 


eerietoiee 


i 


Bs 


EERE PRR Eee. 
00D “IMU 5 LIU (> 


eg 


EEE 





/S. 
GENERA 


009002 
100000 


001206 


100000 
100000 


020000 
020000 
c0080! 
po000! 
oolebe 
C01176 


& DSKLS CONTROLLER TST-PT 2 
TON ROUTINE 


100000 ° 


our 
Aw 


wm OWOOOD4~WWOOW -imww 
OW ORHAN ORMHWM Or 





-MACYLL 27 (655) 


#BIT1S,Re 
4$ 


Re 
R3,Re 


#8IT1,R1 
#BIT1S,R4 
6$ 


RY 

R3,R4 
asSTMPY 
Rl 

R3 

7$ 

1 naan 
#BIT1S,R1 
Re 


11§ 
#81T13,R1 
#61T13,81 
ea 


e 
=f 
~ 


Ules 
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;GET POSITION 2 


;GET POSITION 2 
:XOR B ey POSITION 2 


8 Post 


S_HIGH 


ON 1 
POSITION 15 LOW 
ON 


IT 
1S 
1S 
1S WITH 8 


INTO R1 


IF 
SET B IN POSITION l 
SET B IN POSITION 1 
; TEST C 


;BRANCH IF C=1 
:GET C IN POSITION 3 


;GET_C_IN POSITION 3 
; TEST 

BRANCH IF E=1 

GET E IN POSITION 16 
;GET E IN POSITION 16 
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DZRIHA. SUB STMuLA ISk SETUP 






.SBTTL SIMULATED DISK SETUP 
See ee TNTS 16 SUBROUTINE TO SET UP THE SIMULATOR DIGK FOR 


TINE TO SET UP THE SIMULATOR DISK FOR 
ane . “ig, 81"9 PER WORD) 


ie “rigouct Ma met RS, a#CRC 


ALL JSR PC, aeSETOSK 
pansnanlontnonnannanonnnshesasoueonenannonseeuopanteenenesenenns 


047356 seTDSK: 
04 MOV 













7356 1004 RO,-(SP) ;;PUSH RO ON S 
047360 010146 MOV Ri; =-(5P) *:PUSH R1 ON STACK 
O47362 01024 MOV Re, -(5P) PUSH Re ON STACK 
047364 012700 177400 #177400, RO sDATA I THE D 

7370 b1g701 090400 MOV #256. ,R1 TER 
047374 Ole7De 954256 MOV #DISK’ Re START OF SIMULATOR DISK 

740G 010022 1S: MOV RO, (R2)+ :MOVE_IN DATA 
047402 005301 DEC Ri COUNT FOR 256 
047404 001375 ‘ 1 ?BRANCH IF 256 NOT COMPLETE 
047406 012701 90002: MOV #17. ,Ri se ECC WORDS 1 DATA GAP 
o47412 o0soe2 2S: CLR ~~ (Re)+ : id eag ECC, DATA GAP AND 

| : TOLERANCE GAP 
047414 005301 DEC Ri °C 
047416 0013 BNE 2s :BRANCH IF NOT COMPLETE 





;NOW SET UP FOR DISKLESS USE 









047420 012737 010000 052340 MOV SFNT22, D8CYL s CYLINDER 0 (16 BIT WORDS) 
O47426 112737 000001 052343 MOVB 81, a8SECOTR+! 
7434 112737 909001 OSe342 MOVB #1, BaSECOT R Pate 
7442 012737 1 0520344 MOV #1; eKEY! 

012737 000001 052346 MOV #1; a8KEY2 Yesl 

013737 o00490 dS2420 MOV 206. JSDAWORD Bf ROS 
047464 004537 047102 ISR , aRCRC 10 cACULA — CRC 
047475 052340 C FIRST CRC 

We ALCULA 

7474 912602 ::POP STACK INTO Re 


SP)+,Re 
(SP)+,R1 ;;POP STACK INTO Rl 
)+,R0 ;;POP STACK INTO RO 
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" MNDEC=12-DZ2RJH-A,RPO4Y“S’& DSKLS CONTROLLER TST-PT 2 
| DZRIHA. SUB CHECK HCE ROUTINE 






fe} ~SBTTL CHECK HCE ROUTINE 
7984 33 paenansussegta gence nourreretneresresuecnsespeusensepencseeenes 













7985 HIS 15 AS UBROUTINE TO CHECK HEADER COMPARE ERROR 
c38e as #7) AND CRC ERROR (BI 

£388 sCALL JSR RO, J#HCCRCE 

7990 ; COM ;COMMAND-READ HEADER AND DATA 

7991 “WRITE DATA 

7992 : C CYLINDER 

7992 s H C TOR 

7394 ; ; Fase 

7395 : -N. He 

79% : 8 RHER BUFER S 

7997 : X ? L=WRI TA QenEAD 

7998 : H=O CRC CHECK 

fer, , sdnnenubonnanensuannnnnannnannebentecusenaesebopbanenacssenssees 

8001 010037 i151 on MOV RO, aaPCISR ;SAVE PC OF JSR+4 | 

8002 047510 !62737 900004 015134 SUB #4; J8PCISR -3GET PC OF JSR 

8003 047516 004737 045674 JSR PC; J8CLDISK :INIT AND SETUP GENERAL REG. 

BNO4 004737 045730 J _ PC! ISCHECKT :CHECK DVA ROY DPR, ORY = 1 AND OTHERS DON’T 

8005 O47S26 104 005124 TYPE §_, CPHALT :CANNOT CONTINUE TESTING IF a THE 

8006 “ABOVE BITS DON’T = 1 OR aTMERS SRE STUCK 2 1 

8007 947532 000000 HALT STOP THE TEST 

B008 047534 011037 001210 MOV (RO), 28STMPS.  :SAVE COMMAND 

8009 O47540 012011 MOV (RO)4, aRI :C 

8010 O47542 012077 14S224 MOV (RO)+; JRHCA CYLINDER 

8011 O47546 11 (RO}+,-(SP) i SECTOR 

B012 O04 1057 TST (RO)+ :UP DATE 

8013 047552 112066 000001 VB (RO) +, 1 (SP) : TRACK 

8014 O47556 105720 TSTB = (RO) + [UPDATE RO 

8015 047560 012677 14S200 V (SP)+,@RHDST  : TRACK SECTOR 

8916 047564 012077 14Si6e MOV (RO)+, *NO. OF DATA WORDS +4 HEADER 

8017 *IF A READ HEADER DA 

8018 047570 012077 145160 MOV (RO)+, JRHBA :STARTING ADDRESS OF BUFFER 
2019 947574 912037 MOV (RO)+, 8x :X=0 HEADER AND DATA 
8020 3X1 iH 5 Tee A a 
8021 O47600 012777 O14O00 145162 MOV SFMT22!ECI, SRHOF’: 16 BITS PER WORD | 
8022 sECC CORRECTION INHIBIT 

8023 005037 015126 CLR DeERFLGS *CLEAR ERROR FLAG 

8024 O476i2 904737 052200 ISR PC, J8COMHD ; COMMAND 

Bose Se F THE PROGRAM COMES BACK HERE WITHOUT ERROR PRINTOUTS 

8027 iFRon HE COMHD, ROUTINE THAT | MEANS SECTOR GAP 

Bos is ist Ne c att YTE bate GONt i ar ernes WE A eRe ey 

8031 +E ABER BN DATA ARE TO BE CHECKED. 





6033 047616 904737 045374 JSR PC dePUTREG SAVE REGISTERS 
8034 O476ee 005737 015126 TST ? BERFLGS SANY ERRORS ALREADY THERE 
8035 047626 001034 BNE ; BRANCH IF YES 





— oe ee 


v 





02 


MNDEC- “a” muy RPO4/S/”6 DSKLS 


GHECK HCE ROUTINE 


RR ABER oe 


004037 046570 
S220 


047664 000207 
O4766& 000414 


047670 pe 046570 


C4 
047724 022737 000072 001210 
047732 41 
047734 017737 145022 001126 


CONTROLLER TST-PT 2 


1$: 
2S: 


10$: 
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NP AuRr Te Bata BRANCH 


Ne THE READ BUFFER WILL BE CHECKED 


BeOS" 


Y_R AS WRITTEN 
hota? Bree ite TT 
nee BUFFER HAS BEEN FIL 


LED WITH O 
;WRFROM BUFFER HAS BEEN FILLED WITH EXPECTED DATA 
JSR RO, J&COMPAR ; CHECK 
WRF ROM 


GOOD DATA 
REINTO s TEST BUFFER 
256. 4 HEADER 2S2 DATA 
1$ RETURN POINT FOR ERROR HEADER 
23 sRETURN POINT FO NT FOR ERROR DATA 
10$ COMPARISON 
ERROR 4 "READ NEXT ERROR 
RTS PC * RETURN 10 CONPARTSON SUBROUT INE 
ERROR 5 teite No iT 
ROULD Be ee .. FENCE ON 
Bo NG ND be ENCE 
ae ea 
RTS PC RETURN * SONDARTEON 
BR 10$ ; JUMP OUT 
:NOW THE DISK WILL BE CHECKED 
:NO DATA aoHouLo WRI TTEN 
REINTO R BEEN FILLED WITH EXPECTED DATA 
: DISK HAS BEEN FILLED WITH !77400 
:WRFROM HAS BEEN FILLED wrTi 125252 
JSR RO, J#COMPAR s CHECK 
REINTO :GO0D DATA BUFFER 
DISK TEST BUFFER 
4g ;RETURN PCINT FOR ERROR HEADER 
S$ sRETURN POINT FOR ERROR DA 
10s é N POINT FO FOR, 6000 COMPARISON 
RT PC ir OMPAR SUBROUT 
Bion | eat ers erriay sau 
jHAVE BEEN GHRNGED 8 ey THE 
RTS pC ITE Cornet TQ COMPARISON SUBROUTINE 
TST (RO)+ :1§ THIS A HCRC ON HCE CHECK? 
BEQ Rone IF HCRC 
CMP #72, J8STMPS il THIS A 8 READ COMMAND 
BEO 1$’ 


1 
MOV ORHER! , J8SBDOAT TEST bata 


, 


SEG C236 












O47742 022737 
ree 013799 

7760 e7 4 
047770 000460 


O4777e 917737 
Bea000 022737 





saigaaeed & 
y 





WMOVDDOOOWMOWODDOWONDWOODWOOWNWOWMOMWWOMMWMA 





000200 


014762 
000200 


144764 
100209 
014762 
100200 
000072 
144716 
000400 
014762 
o004Cd 


144660 
100406 


100400 
014762 


001126 


O4S440 
00:124 


001124 
O4S440 


MNDEC-11-DZRJH-A,RPO4/S“6 DSKLS CONTROLLER TST-PT 2 
DZRIHA. SUB BHECK HCE ROUTINE 


118: 


125: 





CMP 
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MACY11 27(655) 


HHCE, 8SBLOAT ONY HEADER, COMPARE BIT? 


7$ 
Q#RHER1 ane GAOR’ ag ADDRESS RHER1 


ace, ass$GODAT : 8000 Dat 
27 BORN N ERROR ON THE 
i HEADER ONLY HCE SHOULD 


7§ 
DRHER! , I8SBODAT Test DATA 
#OCK! HCE, a¥SBDDAT ONLY HEADER COMPARE BIT? 


bee J ECC IS NOT READ 


DBRHERI JsREGADR’ OReCTSTER BODRESS RHER1 
auckinee, aeSGDDAT = GO0D 


75 ai 

872, o8STNPS Fe Firs @ READ COMMAND? 
tag" HIS THIS REREAD 
ORHER! ,2¥SB00AT : TEST Bara 


a HCRC,S8SBODAT ONLY CRC ERROR SHOULD BE THERE 
DRHER! QUREGADR “REG. ADDR = RHERI 
ayer, ,aRSGDDAT ;G00D DATA 


AFTER A aes — ONLY CRC 
$SHOULD 


7$ NUT 
RHER1, I8SBODAT ; TEST DATA 


' #OCKSHCRC , d#SBDDAT; HCRC ae DCK SHOULD BE SET 


; . AUSE ECC IS NOT READ 
7$ 
tg scoot ge GISTER RHER 
a Ma: fee ERROR CHA READ 

:DCK HCRC SHO LD BE SET 

:DCK oa SET ts ee 1S NOT READ 
RO ?RETURN TO MAIN TEST 















SEG 0238 
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MNOEC-11-DZRJH-A 
DZRJHA. SUB EXIT WRT HEADER & DATA ROUTINE 





HA 
130 .SETTL EXIT WRT HEADER & DATA ROUTINE 

8132 3 ARSKKAAARKRSSRSKSRALAAARERAAAAARRLREAAARKA KAA LHAAA HARARE RAALAAAKLK 
8133 iT RE A SUBROUTINE 19 LEAY AT THE MIDDLE OF 

8135 :1T aie neApee SECTOR 10, TRACK 0, CYLINDER 0 

8136 ‘BUT COMES OUT AFTER ONE SECTOR 

1g? : THE COMMAND OS JSR PC, deMIDOLE 

B33 $3 PUCTTTTTESTTECTOCTC TIT TT TTT TTT TTT TTT TTT TTT TTT ttt TT ttt 
®141 950134 MIDDLE: 

8142 050134 010046 MOV RO, -(SP) ;;PUSH RO ON STACK , 

8143 050136 010146 MOV Ri; -(SP) _ $:PUSH R1_ON STACK 

gy 050140 013777 O1S174 144612 MOV DAWRIFOR, IRHCS1 sHRITE HEADER AND DATA=62 

8146 OSO146 012777 177766 144S76 MOV #-10. , IRHWC :10 WORDS 

8147 O501S4 012777 015220 144572 MOV #WRFROM, JRHBA 3 BUS ADDRESS=WRFROM 

8148 OS0i62 012777 900010 144574 MOV #10, JRHOST *DESIRED TRACK=0 SECTOR=10 

8149 950170 052777 O00010 144560 BIS #bat dRHCS2 BUS ADDRESS INCREMENT INHIBIT 
8150 050176 Ol2777 910000 144564 MOV SFMTe2,aRHOF  § ;FORMAT 16 BIT WORDS 

8151 OS0204 .005077 144562 CLR JRHCA * CYLINDER=0 

8152 OS0e10 012737 OO00001 050236 MOV #1, a8MID $ SECTOR Is SET TO 1 SO THAT 

8153 ; tWE CAN GET OUT AT THE 

8154 *MIDOLE OF AN OPERATION 

Biss ‘LOOKING FOR SECTOR 10 

8156 OCS0216 012777 o00001 144554 MOV :SET DIAGNOSTIC MODE 

8157 050224 052777 600001 144526 BIS #60, ARHCS1 ;G0 TO RHCSI WITH 62 
8158 950232 004137 OS6&4OS JSR R1, J8SEARCH 

8159 050236 oocd00 MID: -WORD O : SECTOR 

8160 050240 012601 MOV (SP)+,R1 ::POP STACK INTO R1 

Si61 O&02042 012600 MOV (5P)+'RO ::POP STACK INTO RO 

8ibe os0544 07 RTS pe 





Sieve 


2 


81 
81 
81 
8166 
gibe 
gie9 
8170 
8171 
8172 
8173 
8174 
8175 
8176 
8177 
8178 
8179 
8180 
8181 
8182 
8183 
8184 
ta 

186 
8187 
8188 
8189 
8190 
8191 
8132 
8193 
te: 

195 
8196 
8197 
8198 
8199 


3 


fo 
= 






A he elmaalae wre DSKLS CONTROLLER TST-PT 2 
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015134 


144456 
144470 
144442 


001126 


O4S440 
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-SBTTL JAM CURRENT CYLINDER ROUTINE 


[HEHEHE HHHHEEHHHEHHHHHE EHH HEHEHE HEHEHE HEHE 
SATHIS SUBROUTINE W 
:*THIS IS DONE BY 
“wee WILL LOAD 


THE CURRENT CYL 
CYLINDER WITH THE DESIRED CYLINDER VALUE 


iH X SIRED VALUE OF CURRENT CYLINDER 
F csuepetantembenssintaaiindanietietasttintentemeatten 


tie BE RS e STACK 


bi ae 0 FIL peat D CYLINDER 
3F a oat 348 STER 
RED SECTOR TRACK IS NOT ILLEGAL 


tsi Bai CORMAND 
;SET DIAGNOS 


bee te 
a 


i Bee Ede RooRess 


NDER DOES NOT MATCH QESIRED CYLINDER 
REGISTER ORTER A SEEK AND AN INIT 


;;POP STACK INTO RS 


BOR; P*] 
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Jam CURRENT CYLINDER ROUT 


-SBTTL ECC GENERATION AND COMPARISON ROUTINE 


3 JHE HEE HEHEHE HEHEHE HEHEHE HEHEHE EEE 
: ATHIS SUSROU TENE Saharan ES AND TESTS ECC 


s#CALL JSR PC, ECTES 
eeereriiititiitittittitiiiitiiiiiitritiitetiiteiteritietierer eg 


ce F 


Bs 


mmm 


hb bo em pe pepe 
OO IMWUIS WITH 


forororororurorararars 
WONWUI£CWiuHO 


Ro 
mo 


Fofurofururofore 
SSIS ne 


WONCUCWM-O 
a tb 


bb po fe hm pe 


MMMMMMMmmMmmMmmmmmmrririry 
8 


Ks odeg 4 


a 
wre 


Sai: 


8 
2 
= 


fororurare 
BBURRESS 


Biba Nore 


2 
VDVVVVVVUVUUUVUUVUVUUUUUUUU UU UU DUD 


I 
I 
I 
I 
I 
I 
I 
I 
I 
I 
I 
I 
I 
I 
I 
I 
I 
I 
I 
I 
I 


MMMMMmmmmririry 


55 


vu 
— 
m 
oy 


;DATA BIT FOR ECC 
:IF ALL ONES THEN CURRENT BIT IS A ONE 
;IF ZERO THEN CURRENT BIT IS A ZERO 


LQ ORDER ECC WORD TO BE GENERATED HERE 


HIGH ORDER ECC WORD TO BE GENERATED HERE 
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DZRJHA. SUB nas C GENERATION AND COMPARISON ROUTINE 


050374 > TSECCG: 0 2177777 GENERATE _AND TEST ECC FOR THIS BIT 


=0 DO NOT GENERATE AND TEST ECC FOR THIS BIT 


TRIPE COE. 
POE at ig sige BUT . COMPARES ARE 
Oe ee out 129 


aan 
nn 


NEOOE T: 
abe i 


DATENV: 


FOS TB WEL OPE FOR TYPE OUT 


ZCODE: 
T OFF WHEN POSITION COUNTER 


“Sees ee eres wees ee we ee wees ee 


'; TEMPORARY HARD ERROR COUNT 


ECTEST: — 


be 


ee2opese 

aaeaee 
RPBAZB 
eeeoes 


ewecw 
jW-mm 
NOD 
Ooo 


WORD 
CURRENT BIT A_ ONE 
t BRANCH IF CURRENT DATA D=0 


8 
5 


; IS ZERO THEN D=0 
: X32 cece. RO 


177776 RePTE32,R3 





NNDEC-1 
OZRJHA. 


8310 
8311 


8356 


Pana Rey eve nA aR SR uteaasse 
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ECC GENERATION AND COMPARISON ROUTINE 


010300 


0Se703 137777 

005103 

010337 OSO414 
050414 


052703 177737 


010337 OS50416 
OSO0416 


173777 


010337 o50420 
006237 oO50420 


* 
0S2703 176777 
005103 
010337 o504ee 
006237 O0S504ee 


3$: 


MOV R3,RO 
CLC 

ROR RO 

ROR R 

TST RO 

BEQ 10$ ;BRANCH IF RO=0 
; INVERT Xe 

MOV R2,R3 

BIS #tCPIE2,R3 

COM 

MOV R3, J8P3 

ASR aaP3 

s INVERT X11 

MOV 


R2,R3 
BIS #fCPIE11,R3 
COM 

MOV R3, aaPl2 
ASR 1 


aePle 
INVERT X21 
MOV R1,R3 
BIS #tCPIE21,R3 
COM R 


* MOV R3, d#P22 
ASR 


asP22 
s INVERT X23 
MOV R1,R3 
BIS #tCPIE23,R3 
COM 
MOV R3, a8P24 
ASR 


aePe4 

;NOW THAT RO FOR POSITION } 
: P3 FOR POSITION 3 
: Pl2 FOR POSITION le 
: P22 FOR POSITION 22 
; ss PY FOR POSITION 24 
“ARE “KNOWN THE ROTATE WILL BE DONE AND 
THESE BITS JAMED IN 
ROR R2 
ROR Ri 
BIS J#P3, RO 
BIS Sure RO 
BIC #PIE1!PIE3!PIE12,Re2 

1S RO, Re 


SEQ Oe4e 
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OZRJHA. SUB ECC GENERATION AND COMPARISON ROUTINE | 


















y a 
Sec 050636 CLR RO 
8366 - 053700 os0420 BIS aePe2, RO 
OSO644 oSo422 BIS a#P24-RO 
042701 o02400 BIC wPiEeePIERY, RI 
050001 BIS RO,R 
000404 BR fe 
; THE PROGRAM COMES HERE IF RO=0 
;S0 AFTER ROTATE RO GETS PUT INTO POSITION 1 
10S: ROR R2 
042702 100000 BIC . #PIE1,Re 
010137 050370 123: MOV RL, J#GECCI ;SAVE ECCI 
010237 050372 MOV Re: J#GECCe SAVE ECCe 
737 050374 TST aatSECCG "IS HARDWARE TO BE CHECKED 
: IF 21777777 TEST HARDWARE 
-TF = 0 DO NOT TEST HARDWARE 
001432 BEQ 14S ‘BRANCH IF HARDWARE NOT TO BE CHECKED 
;#CHECK HARDWARE 
032777 OO0400 130224 BIT #SW8, ISWR sIS SWITCH 8 SET 
001005 BNE 15$ ‘BRANCH IF SWB IS SET 
032777 O001CO 130214 BIT #SWb, ISWR 1S SWIT SET 
001401 BEQ 15 ; BRANC SWb IS NOT SET 
000421 BR 14§ IF SWITCH 8 IS NOT SET AND 
j SHITCH 6 IS SET 
010146 1S$: MOV R1,-(SP) 6000 PATTERN REGISTER 
042716 174000 BIC #174000 (SP)  3GET ONLY PATTERN BITS 
022677 144050 CMP (SP)+,QRHEC2  ;COMPARE PATTERN REGISTER 
001404 BEQ 1 ss IF GOOD 
-TO SAVE TIME 
004737 045374 SSR PC, JHPUTREG REGISTERS 
_ 104035 ERROR 35° PATTERN REGISTER IN 11 BITS IN ERROR 





000407 14 
023777 OS040e 144026 138: CMP @#POSITI,@RHEC! ; etl POISTION REGISTER 
001403 BEQ 14 BRANCH IF GOOD 


" TI 
004737 045374 JSR PC, J#PUTREG ; SAVE REGISTERS 
104035 ERROR 35 ;POSTTION REGISTER IN ERROR 
eee ENVLOP” GIVES NUMBER OF CLOCK 
ULSES FROM BEGINING OF COMMAND 
THAT IS THE CLOCKS IN THE R/W DATA FIELD ENVELOPE 


SIN A WRITE THERE ARE 10000 OCTAL CLOCKS 
IN A READ THERE ARE 10040 OCTAL CLOCKS 


| i *N=CODE ZEROS” GIVE THE NUMBER OF CLOCKS 


; GIVEN FOR THE LEADING ZEROS FIELD 
sMAX COUNT IS 113713 OCTAL 
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Sus ECC GENERATION AND COMPARISON ROUTINE 
'™G00D POSITION” GIVES NUMBER OF CLOCKS 
iohven per LEADING shoe WHICH {§ FOR THE DATA 


iMAX COUNT IS 10040 OR 10041 OCTAL 


0 
0 
0 
9 
0 
0 


be Re pe bs fs pe 


5 
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8433 
8434 


RAARRATA R 
ee pe — 
oo Oo 
He = 
orm oO 


#2 GAR BARR RARAAAR 
5 Skee | 2RRST 

pape 

oS S 


S2 Ros RSH 
Oo 
ww 
fT 
N“N 
fs 
_ 


‘050402 


0S0400 
050410 
oso40e 
051010 
oso4le 
000400 
045374 
000002 


000002 
OS04e4 


oso4de 
oso4o2 


-SBTTL ECC GENERATION CONTROL ROUTINE - 
13H HEHEHE HEHEHE HHH 
jATHIS ERROR CO EcTION Pro CONTEC THE ECC GENERATION ROUTINE 


itt CALL 
: R, CT R POSITION REGISTER WHEN CORRECTION IS COMPLETE 
Dell a oT Ee La 


ERPOS: 0 ; ;POSITION REG. WHEN CORRECTION IS COMPLETE 
ECORR: MOV RO, 2#PCISR ;SAVE PC OF JSR + 4 
SUB #4; J8PCISR :SAVE PC OF JS 
MOV (RO)+ DeERPOS ;GET POSITION REG. WHEN CORRECTION IS COMPLETE 
MOV (SP) PUSH R1 ON STACK 
eR an 
CLR s0ND aR ied BaaGNORT Heh 
1S: TST aePOSITI :IS SOFTWARE POSITION NON ZERO 
BNE 2S - >BRANCH IF N-CODE S COMPLETE 
DEC a#NCOUNT *DECREMENT N-C 
BNE 6$ | ; BRANCH IF N-CODE 1S NOT COMPLETE 


ODE IS COMPLETE 
INCREMENT CLOCKS GIVEN FOR LEADING ZEROS 
T COMPLETE 


BR 2s 

6$: INC d#ZCODE 
BR 3$ ;BRANCH AS _N- CR0E hip 

G0 TO give CL ST ECC 


2S: INC aePOSITI : INCREMENT SOF THARE POSITION 
CMP JBERPOS, DHPOSITI;HAVE ENOUGH CLOCKS BEEN GIVEN TO DETECT ERROR 
BHIS 3$ “BRANCH IF MORE CLOCKS TO BE GIVEN 
CMP DSHADTMP, DUPOSITI: jHAVE ENOUGH CLOCKS BEEN GIVEN FOR HARD ERROR 
“THAT IS HAVE | 4128 MORE CLOCKS BEEN GIVEN © 
BEQ S$ BRANCH IF YE 
BIT AZER, ORL CHEK CHECK ZERO sberect BIT IN RHMR 
BNE 4 
-TO SAVE TIME - 
JSR PC, JePUTREG 2g REGISTERS 
N Bt Et Ts ty hee aT REGISTER IS O 
38: BIS #MCLK, OR1 ;SET CLOCK 
BIC #MCLK ORI ‘CLEAR CLOCK 
JSR PC, J#ECTEST : G0 19 NERATE AND TEST ECC 
BR is’ CONTINUE 


; THIS EXTRA CLOCK IS TO BRING ECH HIGH 
AFTER THIS CLOCK POSITION REGISTER MAY BE 10040 OR 10041 OCTAL 


SEQ 024s 





NNDEC=11- “BrRJH-Ay RRO 5 
DIRIHA. SUB 
4s? 051150 952711 
488 O51154 4271] 
8480 951160 
843] 951160 012691 
S492 OSliée Codecc 


em ee ae 


C GENE 


OSKLS CONTROLLER TST-PT 2 


i CONTROL 


900002 
CO0CS2 


OUTINE 
S$: 


4§: 





MACYL1 27 (65S) 


eMCLK,aR1 
aMCLK,@R1 


(SP)+,R! 
RO 


BOY 
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;SET CLOCK 
CLEAR CLOCK 


;;POP STACK INTO Rl 





SES Ce4e 

















8500 
B50) 051164 
 OS1164 910046 
B03 051166 010146 
BS0s Gelize OlasNe 
BS06 OS1174 OL044E 
8507 051176 O10S46 
8508 051200 005037 
8509 951204 005037 
8510 051210 005037 
B511 :051214 012701 
8512 051220 012702 
e513 Oslee¥ 01703 
8514 OS1e3G Olel 
8515 O0Sle32¢ 006004 
8516 051234 103004 
8517 051236 012737 
8518 051044 
8519 051246 ° 005037 
8520 051252 004737 
8521 051256 005303 
BSe2 051260 001364 
BS23 OSleb2 005302 
8524 051264 001357 
8525 051266 013737 
8526 051274 013737 
“> 8527 051302 012605 
8528 051304 012604 
8529 051306 012603 
8530 051310 Oleece 
6531 051312 01260! 
8535 951314 015600 
8533 061316 900207 


—— 


050366 


050370 O0SS256 
050372 055260 
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~SBTTL SOFTWARE DISK DATA ECC GEN. ROUTINE 
jpeeeetececnnsreveroterevemteeseneneeaereemmarteatecestaneensens 


THIS SUBROUT 
10h LOCATIONS “DISK+1 


INE GENERATES 


THE a mA FOR 


ocandesondenauosanonssrbecrabectenensnesennebenncnneneeats RERERE 


FILLEC: 


9$: 
108: 


a? 








RO, -(SP) ;;PUSH RO ON STACK 

R1'-(5P) PUSH RI ON STACK 

wed ::PUSH Re ON STACK 

R3,-( SP) ;;PUSH ON STACK 

RY, -(SP) ;;PUSH RY ON STACK 

RS’ -(SP) PUSH RS ON STACK 

DaPOSITI :CLEAR POSITION 

JSGECC] :CLEAR GECC1 

aaGECCe sCLERR 

#01SK,R1 {POINTER TO DATA FOR ECC GENERATION 

8256. 'Re ‘COUNTER FOR NUMBER OF DATA WORDS 

#16. 23 :COUNTER FOR NUMBER OF BITS PER WORD 
(RIF, R4 :DATA IN RY 

RY :GET One TA BIT IN CARRY 

11S :BRANCH IF DATA BIT IS ZERO 

B-1,a8ECDATA  ;3ECC DATA BIT IS AO 

128" *BRANCH TO GE ECC 

JSECDATA “ECC DATA BIT IS A ZERO 

PC, JMECTEST :G0 TO GENERATE ECC 

R3 :DECREMENT BIT C 

10S “BRANCH IF 16 BITS NOT DONE 

; DECREMENT T 

9$ NOT DONE 

DEGECC1, ABDISK+< ECC] ON DISK 

JSGECCE aaDISK+<257. 3): SINSERT ECC2 ON DISK 

(SP)+, RS POP STACK INTO RS 

(5P)+°R4 tt Bop ST NTO RY 

(SP)+;R3 ::POP STACK INTO R3 

(5P)+'R2 $3POP STACK INTO Re 

(SP)+-R1 :POP STACK INTO RI 

{ + POP. STACK INTO RO 


WHAT IS ON DISK AND INSERTS THEM 












NNDEC=1i-D 
DZRIHA. 


Bannan Ssee 26685 WRN 


RAN AANA RAAAR RAARAARARAA RARKRAR RAR 
TEWO 


od bo pas hs be Be le ee ee Dt be be he Bw fn Pa ps pee 


we gots JIeER B 


013746 





see erac Bt 


014746 
051710 


051760 


014760 
0£2030 


014746 
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.SBTTL RH BASE ADDRESS CHANGE ROUTINE 


; HCOOH rearenneneenenenanienenadeenienataenaeaeee riety 
ti THIS ROUTINE WILL ALLOW THE CHANGE OF THE BASE 
# ADDRESS FROM 176700 TO ANY TYPED VALUE 

y SARORESDESEREROROHERAESN ERATOR ERRUREDRO ETT ERORESEDEEDOESODESS 


BASECH: 
T 







65$ 35 TYPE Aacle STRING 
BR 4$ T OVER THE ASCIZ ; 
365$: .ASCIZ <15><12>/PRESENT ‘ RASE ADDRESS OF REGISTERS IS / 


bag: 
MOV @BRHCS1,-(SP) ;GET READY TO TYPE OLD BASE . 
E 67$ i 5 TYPE ASCIZ aTRING. 


6$ T OVER THE ASCIZ 
3678: .ASCIZ <15><12)>/TYPE net BASE ADDRESS FOLLOWED BY ’CR’ / 


b6$: 
ISR ‘ PC, aaSTKINT s INITIALIZE THE TTY KEYBOARD 
MOV #RHDB, RO ;GET STARTING ADDRESS OF REGISTERS 
MOV #20. .R1 “NUMBER OF REGISTERS 
18: BIC = #fC77, (RO) :CLEAR OLD BASE ADDRESS 
BIS: (SP), tRO)+ -SET NEW BASE 
DEC Rl ; COUNT 
BNE 1$ ‘BRANCH IF ey: NOT DONE 
TYPE 4635 35 TYPE ASCIZ STR paeiz 


3R 8$ “GET OVER THE A 
j 4898: "ASCIZ <15)<12>/PRESENT VECTOR ADDRESS IS 7 
“MOV DBRPVEC,-(SP)  ;GET READY TO TYPE OLD VECTOR ADDRESS 






TYPE 71$ s;TYPE ASCIZ STRI 
ER 70$ ;GET OVER THE ASCIZ : 
pizis: PASCIZ <18)<12>/TYPE NEL VECTOR ADDRESS OR RETYPE OLD ONE FOLLOWED BY “CR” / 
" - RDOCT 
MOV (SP)+, J¥RPVEC :s TUP VECTOR. AOORESS 
TYPE 735 TYPE ASCIZ S 
SR 2s T OVER THE Nett 
44738: -ASCIZ <15><12>/RESTART $5657 OVER FROM 200 OR 210/ 
TYPE $ 5s TYPE 12 STRING 
aR oy FEWER te ASCIZ 
5475 SASCIZ <15> «12> “NEW past’ WILL REMAIN = / 
"MOV DHRHCS1, - (SP) 
TYPOC 
TYPE i TYPE ASCIZ STRING 





BR ee {GET OVER THE AaScIZ 
.:77§: -ASCIZ <16)<12>/NEW VECTOR WILL REMAIN = 


OSRPVEC, -( SP) 








8600 
8602 
8603 
8604 
860S 
8606 
8607 
8608 
8609 


052150 
0Se1Se 
0S2156 
es ibe 

164 
052170 
3$217e 
174 


atest ete 
+ 2 bo pa ae 
£WMUH-O 


a 
fu 
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OZRIHA. SUB BASE ADDRESS CHANGE ROUTINE 


14400 0S2100 
o0040e 


0Se2lle 


045674 
052150 


oicoecs 
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TYPOC 

TYPE 79$ oe ASCIZ STRING 

BR 8$ ;GET OVER THE ASCIZ 
bic8: sASCIZ «15><12>7 7 

TYPE 81$ 3; TYPE ASCIZ STRING 

SR O$ ;;GET OVER THE ASCIZ 
gigis: ASCIZ <15><12>/UNTIL PROGRAM IS RELOADED/ 

HALT 





THIS IS A LITTLE UTS THAT TESTS NED BIT 11 IN RHCS2 
SSTHIE LOOPS HERE FOR 
USED ONLY IF F ORIVES PRESENT LOOKING AT NED DOES NOT AGREE 


#70 BE 
*4WITH WHAT IS REALY 
ERUNIT: O ;UNIT UNDER MANUAL TEST 
ERSTART: JSR PC, d8CLDISK SET GENERAL REG. 
MOV DeERUNIT,@R2  ;SELECT UNIT 


1S: TST aRY ;TEST RHER] 
BIT #NED, Re ; TEST NED 
BEQ es ;BRONCH IF GOOD 
BR 1$ ;NED NOT SET 
2s: BR 1$ NED SET 












HA. SUB 


green 2 = 
ob 0p pe 
00~IT UI 


Re 


Bee ai ian a 


& 
2 


Sa 


ee 


864 


ateateatea 
poe 
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DZR SISK SIMULATION 
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/SBTTL DISK SIMULATION 
1 JHE HH}HHHH HHH HHH HH HE age 
1 GBH HEHEHE HEHEHE HGH HEHEHE HEHE BE 
ii A WRITE R_AND DATA COMMAND FILL THE FOLLOWING 


; I 
;#WSECTR=WITH SECTOR AND n DISK BE ON DISK 


sae ee WNO OF D ie 10 WOROS TO BE WRITTEN ON DISK 
STE CORMAND THEN 1S" SER PC. COMMHD 






SEI 8 iat CYLINDER T 
:¥SECOTR= WITH SECTOR FRACK 10 BE FOUND ON DISK 
sAKEYI= WITH KEV TO BE FOUND ON 1 

aKEYe= WITH KEY TO BE FOUND ON DISK 


1_ MUS 
;#NOWORD= WITH NUMBER OF para WORDS TO BE WRITTEN 
j #THE ROMMAND THEN IS JSR PC, COMHD 





FILL THE FOLLOWING 
0 BE FOUND ON DISK fi 
Q BE FOUND ON DISK 








BE FOUND ON DISK 





3: BE ZERO 
:#THE COMMAND THEN IS JSR PC,COMHD 






td 

;* 

;# 

;* 

5% 

;# 

o% 

sé 

;# 

;# 

;#IN A READ DATA COMMAND FILL THE FOLLOWING 
s*#CYL= WITH CYLI TO FOUND ON pix 
#9 Sg TH SE 4 QUND ON DISK 


= 
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HA. SUB BISK SIMULATION ; 

g663 3% 


; 


- — ee ese 


—EEaEEoEEEEEEeEeEeEeEeEeEeEeEe 
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DZRJHA. SUB OISK SIMULATION 


35 FEE ER 998 9 9 9 EEE J EE A HE He EE a 
: WRITE DATA COMMAND 

;#0R READ COMMAND, I. A ONLY, OR HEADER AND DATA 
eerrittrii iit riitiititti titi tititiititttiititiiiitireiiiiiii eds 


;#THIS SUBROUTINE IS THE FIRST IN A SERIES OF NESTED SUBROUTINES 
HR DIAGNOSTIC MODE, AND EXTRA DIAGNOSTIC INDEX, AND THE 


;*#I1T THEN CALLS THREE OTHER SUBROUTINES, WHICH IN TURN CALL 
;#OTHER SUBROUTINES. THE SUBROUTINES CALLED HERE ARE: 


SEARCH ; ISSUES SECTOR CLOCKS TO SET SECTOR FOUND FLOP 
RDHEAD ;REACS THE SECTOR HEADER 

WROATA ;WRITES THE SECTOR DATA (WRITE OPERATION) 
REDATA ;READS THE SECTOR DATA (READ OPERATION) 


-_ 
_— 
“oo 
8 
~_ 
ul 
= 
2 
co 
= 
3 


Bs 
Bo 
: 
A RARA TS | 
3 


© g22sce;e 
é 
eeeeggse 


ay Be 
: 


u 
oe 


NOEX 
ALL ’TILL_ *RUN’ 
THE Tet 
APPROX. 4SOUS FOR 11/50 CPU 


Ce a ee oe 


REERRRSRASS AIS 
Sve SES 

Res & 

Bee Se 

aR 

B33 
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gre 052306 004137 056406 ISR R1, J8SEARCH sISSUE SECTOR CLOCKS (---------------- > 
le TRK: .WORD Q 

bre? Obs 4 000240 MOV #+NOP,R1 :GOING TO MOVE NOPS 

? 2 101 dses¢ nov RL, gaSSYN iNOP INTO SSYN 

B553 Bessac biotse posse MOY ORT SRHEBeON «= ENO ENTS HEDSIN 

e731 052334 004137 JSR R1, J#RDHEAD * READ NHE HEADER <------------- > 

g 2 pessuo vane ot “HoRD = SECTOR RZ TRAGK A RBORESS 

8735 052344 900000 KEY1:  .WORD OQ 

pS fies HR oe eS Bee 

8738 Meh READ COMMAND 


8740 
eral :DUMMY ERROR CALL LOCATIONS FOR THE READ HEADER OPERATION 
ae 052352 o0024c SSYN: NOP F “ERROR 2” THEN Tne sh ayn 
§74S , fe YT ANE. TeeY THE 
sa | YBNNOY BE READS i 
8748 . ino at RUSE es: FIRST 
B03 | sHORO TEST 

4 4 GAP: NOP © RT Y 
a. a ae ore oe HROVERD suaROUtINE, Then THE 
8753 ADER GAP 0’S 
8754 tURITIEN RIGHT. 
Boe ;IF “WORD NO” CONTAINS, SAY 
8757 33(8), on IT IS THE THIRD 
8758 sl okB CBOE 
9759 GAP teat’ 2 WRONG 
8766 


8761 ;"BAD DATA” CONTAINS WHAT IS 
8762 GOING ON THE DISK 


8764 OS235& 000240 : 
8765 IF SERROR 3” INSERTED BY ROHEAD 
8766 | . . THEN - THE HEAD ener SYNC 
8757 ° ' ’ ate th -DC 

8768 

8769 THE HEADE! i o’s Is sonal 


8770 

Bore Nonit BYTE” TS HERDER 0, 

Me HS BYTE IS SYNC 

ere ton DISK. HAS WHAT IS GOING 









BISK SIMULA 


ea o52360 poereS 015126 
Be BOD cco 


8787 OSe40C 90101! 

8788 

. 8789 OSe%de 
OS2405 


sagaess 








eas 
2 


CEFREEE 


g 
i! 
3 


= 


sane 
: 
— 


§ 
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DZRJHA. SUB TION 


CUT EXIT IF SET ---------------------- > 


R1,daWRDATA —_; WRITE DATA (---------------------- , 
0 NO OF WORDS TO BE WRITTEN 


i} 
OUT ani eo---------------------------) 
RL,34REDATA READ. DATA (-o2— aman nacnnnnnnnnn > 
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dell a RE_ANY GASORS DETECTED ? 










VIF YES, EXT) eeeneneeeceenen meen ) 
Beso AE TT APUR UIE CEE™ON 
J#NOSYNC 31S THIS FORCED HEADER ERRCR COMMAND ? 


;IF YES N WRITE OR READ 
‘ ae $5 ene 













3 3 POP TACK INTO RS 

i + Bop ae we RY 
NTO R3 

33 Pop 1 ack tN NTO sy 

be STACK INTO R 

si tT STACK INTO a 


— te ee oe ee ee 
+$+++4++ + 
ZAwwzAw 

B2BBPR 
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5 RRRRAEARERAAAAERE REEL RAL AE ARAL AE LAAL ALAA RARER AAA ALARA ERRAS RASS 


;*#THE DISK SECTOR IS DEVIDED AS FOLLOWS 


;#19 WORDS OF ONE WORD 144000 
S#THESE MAKE 39" BYTES FOR SECTOR GAP AND ONE SYNC. BYTE 


es 57 


bated epestestepeted ates: 
WONTUICWl-O 


1 

0 

0 

oe 0 
RKEYe: O 


s ONE WORD 144000 
1 BYTES FOR HEADER GAP AND ONE SYNC. BYTE 


Bane 


; XTHERE WORDS OF DATA 
;XTHERE ARE of Bere FOR ag GENERATED By DCL 
els WORDS OF 0’S FOR DATA GAP AND TOLERANCE GAP 
5 SERRE REE SEE SEE HEHEHE SE SEE SEE EAE HEE HEE SEE SE SEE EEE EEE EAE AE EEE EEE EEE 


! 


8824 
8825 
8826 
8827 
8828 
8829 
8830 
8831 
. 8832 
8833 
8834 
8835 
8836 
8837 
8836 
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8833 é Cae ha Ge CC ee 


8840 Re DISK HEADE 
Bate erorerrientrirt teen rte ttt nee 
884 ' 
8844 
8845 
Seu *) ose4s4 000000 NOSYNC: 0 ; FORCED HEADER ERROR = -1 
eeu 052456 000000 TY: 0 "ERROR TYPE NO. 
e850 052450 900000 ERWORD: 0 “ERROR WORD NO. 
g8sl ee , 
ggs2 
Been Be 
8855 OS2e%2 012137 ose444 RDHEAD: MOV (R1)+,98RCYL_ ;STORE CYLINDER ADDRESS 
8856 OSe466 012137 052446 MOV (R1)+,a@RSETR  ;STORE SECT OR AND TRACK ADDRESS 
8857 O5e472 012137 O524S0 MOV (R1)+,Q#RKEY1 STORE KEYI 
8858 052476 012137 052452 MOV (R1)+,a@RKEYe ;STORE KEY2 
8859 052502 012137 053252 MOV (R1)+,d8COMPA  ;STORE COMPARE OR NOT 
8860 052506 O10146 MOV R1,-(SP) ;PUSH R1 ON STACK 
B86e 052510 913700 015000 MOV JRHMR, RO RO CONTAINS MAINTANENCE REG. 
052514 012705 000002 MOV #2, RS *RS IS A COUNTER FOR WORDS 
. BBE4 052520 012710 000001 MOV #0MD. aRO “SET DIAG. MODE 
8865 052524 052710 O00010 BIS #MSTCK, JRO *SET SECTOR CLOCK FOR FIRST WORD 
8866 052530 052710 000002 BIS #MCLK, ORO :SET MAINT.CLOCK FOR FIRST WORD 
8867 052534 042710 o00012 BIC #MSTCK!MCLK, RO ;RESET THEM 
8869 OS2S40 OO0404 BR 2 “DON’T GIVE SECTOR CLOCK FIRST TIME 
8870 OS2542 012710 000013 1S: MOV #MSTCK'MCLK!DMD,@RO;SET SECTOR, CLOCK, DIAG. MODE, RESET INDEX 
871 46 042710 O00012 BIC #MSTCKIMCLK, JRO’ ;RESET SECTOR & MAINT.CLOCK 
8873 OSeSS2 012702 000007 23: MOV #7, Re -LOAD BYTE COUNTER 
8874 p52556 Ose 10 oo0002 3$: BIS #MCLK, JRO :SET MAINT. CLOCK 
8875 042710 00002 BIC #MCLK, JRO "RESET IT 
8876 052566 005302 DEC Re *BYTE COUNTER 
8877 O5¢570 001372 BNE 3$ ;CON INUE IF BYTE NOT COMPLETE 
8878 005305 DEC RS 
8879 052574 001362 BNE 1$ : CONTINUE IF WORD NOT COMPLETE 
stejoie 
8881 052576 O12702 o00022 MOV #18. Re ;LOAD NO OF WORDS OF ZEROS 
8882 052602 005037 053250 4S: CLR JSWORD D0 0°S 
8883 052606 004737 053254 JSR PC, J#READ "READ _0'S (------------------- ) 
8884 052612 302 DEC : COUNT WORDS 
BEES 052614 001372 NE 4§ : CONT 
8887 OS2616 013737 OSe442 053250 MOV DERSYNC, #WORD ;SYNC. WORD 
737 $4 isn P wREAD READ IT (--------------------- ) 
10 O01 T tsy, SY BYTE DETECTED? 
052634 00101 BNE “CONTINUE IF SYNC DETECTED 
8891 052636 Die? 00000: oS52460 MOV #1, O8ERW WORD "ERROR WORD NO 
052644 013737 oOSe4%4e O0i124 MOV gHASY SYNC, J#SGDDAT;SYNC WORD 


St maa RPO4/S/6 DSKLS CONTROLLER TST-PT 2 
DZRJHA. 


ea 


sgussssosa9 naga 99g uRaseaE 


Bane 


OISK SIMULATION 


Qsesse 12737 104002 0S23S2 MOV 
1 BR 
see 13737 Osevvy 053250 SS HOV 
oy Bia7ay BeSuNe oSaeS0 MOV 
Ose70e 004737 Osae64 JSR 
137 50 053250 MOV 
52714 004737 053254 JSR 
052720 013737 OSe%5e. 053250 MOV 
052726 004737 053254 | JSR 
052732 013737 054240 ‘053250 MOV 
052740 004737 053054 ISR 
052744 015146 TST 
052750 001135 BNE 
052752 005737 053252 TST 
052756 001472 . BEQ 
; #CONTINUE WITH 
052766 012705 os4e4e MOV 
052764 Ole702 OO000S MOV 
052770 Ole727 OO0006 OSe460 6$: MOV 
052776 004737 053506 JSR 
053002 005737 053504 TST 
053006 001413 BEQ 
053010 160237 OS2460 SUB 
053014 005037 001124 CLR 
053020 013737 04 001126 MOV 
053026 012737 104003 052354 MOV 
053034 000503 BR 
053036 013725 053504 7$: MOV 
053042 005302 DEC 
053044 001351 BNE 
053045 004737 0535 ISR. 
0530S2 023737 CSe442 053504 CMP 
053060 001426 BEQ 
053062 005737 oS24s4 TST 
053066 001406 BEQ 
053070 005737 053504 TST 
053074 001420 BEQ 
001124 CLR 
053102 000403 BR 
053104 013737 OSe442 001124 14S: MOV 
053112 013737 053504 001126 15$:. MOV 
053120. 012737 000006 OS246 MOV 
053126 ‘012737 104003 0523 MOV 
053134 43 BR 


ee ee we -— 
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#104002, a8SSYN ; INSERT on 2” IN SSYN 
138 : BRANCH 


gercyL penn s SETUP CYLINDER 
ake IT (---------------------- > 
sitet QaWORD SETUP SECTOR/ TRACK 
aREAD READ THEM <-------------------- > 
) SGAKEY I #WORD ;SETUP KEY : 
PC, JHREAD ;READ IT (---------------------- > 
DAAKEYE QHWORD ;SETUP KEY2 
PC, J#READ READ IT (---------------------- > 
DRNCRC, daw ; SETUP 
PC, J#READ READ IT (---------------------- > 
aaTESDTE 1S THIS A DRIVE TIMING ERROR ? 
H OUT IF YES ------------ 
aHCOMPA {TS THIS A_READ OR WRITE COMMAND ? 
11S D0 READ IF = 0 
DIAGNOSTIC WRITE COMMAND 
#HEGAP, RS ;POINTER FOR HEADER GAP 
#5, Re NO OF WORDS OF ZEROS 
#6, JHE ERROR WORD NO SET 


PC’ JaWRITE *FOR HEADER GAP 
DaWORD TEST WRITTEN WORD 

7§ *CONTINUE IF GOOD, THAT IS = 0 
R2, J#ERWORD ;WORD NO_IN ERROR 

aeS$GDDAT :GOO0D WORD SHOULD BE 0 
J#WWORD,SBDDAT ;BAD DATA 

#104003, J#HEDGAP;"ERROR 2” GOES IN HEDGAP 

13$ *BRANCH OUT 


pees, Cae ;SAVE HEADER GAP 


#WRITE ;WRITE HEADER (DATA) GAP SYNC 

ausSinc, JeWWORD 

a#NOSYNC 51S THIS FORCED HEADER ERROR COMMAND ? 
iff YES NOSYNC=- N RITE OR READ 
TF NO NOSYNC=O0 THEN CONTINUE 

14S . ‘PRINT IT I E 

JWWORD IS I1T=0? 

10$ CONTINUE IF 

a8SGDDAT ‘TT BE 

1S$ __tBRANCH TO TYPE ERROR 

DERSYNC, 9¥SGDDAT; 600 

a HHHORD D3 ¥SBDDAT; BAD DATA 


DER 
bibicos, QeHEDSYN 
BRANCH OUT 


eo /& DSKLS CONTROLLER TST-PT 2 MACY11 27(655) 30-MAR-76 20:59 PAGE 212 SEQ 0258 


Bish SIMULATION 
8947 
B48 13 013725 053504 10$: MOV JRWWORD,(RS)+  ;SAVE DATA SYNC. 
142 o000440 , B40 ssésédA3Sti‘ S tEXIT --------------------------- ) 
8951 ;#READ COMMAND START FROM HERE 
144 11$: MOV #5, R2 
Bei Osis olzrme goose = gS toy 
895S 053154 004737 053254 JSR PC, JHREAD ;READ HEADER GAP <--------------- 
B55 053169 DEC "ARE S HEADER GAP ZEROS COMPLETE : 
1 1 BNE 12 IF NOT CONTINUE 
€958 053164 013737 oseue 053250 MOV JRSYNC, I#WORD ;SYNC WORD 
B33 53172 O53¢64 13R PC, J#READ "READ HEADER (DATA) »SYNC) 
1 4 T aeNOSYNC “FORCED SYNC ERROR ? 
8961 053202 O01404 BEQ 16$ SIF NOT ERROR COMMAND CONTINUE 
Babe 053204 10 001000 . BIT 8OTSY, aRO :SYNC. DETECTED 
10 OOo14is BEQ 13$ : iF ZERO BRANCH OUT ------------ ) 
B64 053212 O00403 BR 17$ :IF NOT ZERO BRANCH TO ERROR 
B366 14 10 001000 16$: BIT #DTSY, RO ;SYNC. DETECTED ? 
896 O 001011 BNE 138 sEXIT IF YES ------------------ > 
8968 OS3e2e 01 OS2460 17%: MOV #ERWORD OR WORD NO. 
8969 053230 pies 3 ose442 001124 MOV SeRSTnICe a#SGDDAT icy NC WORD 
8370 Ose 012727 104002 052356 ah MOV #104002; J#HEDSYN: MOVE “ERROR 2” 
8972 pessq4q 012601 MOV (SP)+,R1 -POP STACK INTO Rl 
8973 O0S530% 000201 RTS R1 PEXIT wow eee ween nw nnn nae eee == > 
8974 | 
re 
8977 
8978 
8979 
8980 
8981 
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5 RRERRARAAAAA KAA HASRK RAL SASALAALELARAALARLSAAASRAFLSLAHLFRSAL SRE 


FREAD ONE WORD IN “WORD” 
5 RRRERRERER EASE ELERERRRA REAL ERE REESE REESE EELELEREREER ESE EEE EEE ES 


nee 


Pe 

e356; 
989 

899 


— 


8 
—fR— 
£ 

bee 
o~ 


eras 


Sus ASU RE Be SEER 


gRee= 
cee 
agse 


ees ssssss 
8 


0-2 0 = 0 = 0 
WO 0D NICOL GUT 


Rinistnintatstant 
Roan 

Sass 
hat To hute tat 


8 


ssss 
ALO 





R2,-(SP) ;:PUSH Re ON STACK 
#2" RS :WORD COUNTER 

8OMD, 2RO :SET DIAG. MODE 

ORHORD i GHECK Te IF THERE IS A ONE 

sR RO if BIT 4 ma DATA HAS ONE 

? Re :BYTE COUNTER 

SneTEKINCLK, JRO ;SET CLOCK,DATA IF ANY, SECTOR 

gaTSECC G 31S TH HIS ptt 10 GENERATE AND TEST ECC ? 
MRD, RO S DATA BIT A ONE ? 

S$ 13 Dar H IF DATA BIT Is 0 

8-1, 28ECDATA HEC DATA BIT IS A ONE 

#ECDATA -ECC DATA BIT IS AD 

#0MD, -(SP) :KEEP ONLY DIAG. MODE 

asWORD ERO ove IF THERE IS A ONE 
2s F NO ONE BRANCH 

BARD! DMO (SP) : KEEP DATA AND DIAG. MODE 

(SP)+, aR T IN DATA.RESET CLOCK. SECTOR 
STSECCG Ts ECC TO 0 BE GENERATED FOR THIS SIT 


H IF 
JSDATENV NUMBER OF CLOCKS GIVEN FOR DATA ENVELOPE 
PC PC aaECTEST 360,70, GENERATE AND TEST ECC 
anti aR iI THIS BIT TO GENERATE ECC 


8$ IF NO, 
&MRO, JRO 1S DATA oS 

IF DATA BIT IS = 0 
8-1, 98ECDATA +ECC — BIT IS A ONE 


JSECDATA SECC DATA BIT IS = 
#OMD, -(SP) “KEEP DIAG. 
aawORD : CHECK ING iF M PERE IS A ONE 
: BRANCH F NO ON ONE 
8MRO!DMD, (SP) s KEEP DIAG. MODE AND DATA 
(SP)+. aR ise DATA 1p18G MODE, CLEAR CLOCK 
aaTSEccc THIS BIT BIT TO GENERATE ECC 
aBDATENY NUMBER iF Me ocKs FOR DATA ENVELOPE 





004737 O50424 






-OZRJH-A ad An pes CONTROLLER TST-PT 2 


3$: 
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;GO0 TO GENERATE AND TEST ECC 


fon As BYTE NOT COMPLETE 


INUE IF ONE WORD NOT COMPLETE 
i ioP STACK INTO Re’ 


ewe en eee eee wwe we ee Bw ee ee eee we 





PEPE CCer CT it cl NNER EARER Cir aa Gaara 


5 
3 
9 
8 


BRES 


0S3S04 


Ee 


0S3S64 


MNDEC-11-DZRJH-A,RPO4’S’& DSKLS CONTROLLER TST-PT 2 
Sus O1sk SI 


o000 
0 he 


By 
[=] 


Beoese 
a 


a 








4§: I eMCLK . CLOCK 
ert SLR BRO. ae gIT IN MAINT. REG. 
MOV 8-1, a8ECDATA Ect DATA BIT IS A ONE 
SEC T CARRY 
ROR R 1 FOR WWORD 
SS: CLR JSECDATA sECC DATA BIT IS ZERO 
cL¢ ; CLEAR CARRY 
ROR R3 ; FOR WWORD 
6S: MOV #OMD, RO CLEAR CLOCK 
: TST aeTSECCG : banc IT TO GENERATE ECC ? 
Q 7§ : H 
INC gHORTENY i NUMBER OF choc KS F FOR DATA ENVELOPE 
JSR PC, JRECTEST GO TO GENERATE AND TEST ECC <-------- > 
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Heh-b-b-helah-lehahahat-b-f-lahahat-b-lelahad-ebah-Lah-S-balglal-elaloleteh-t-b-telahahahahalahdlalalalalalalalalalalahalalel 


HAWRITE ONE WORD WHICH COMES BACK IN “WW 
 SSESREOEDOSSSOSSESSDSESTSESSSSESTEOSSSSSAEAOOADODEEEEONESEEES 


WWORD: O 
WRITE: 
MOV RO,-(SP) ;;PUSH RO ON STACK 
MOV Re’ -(S5P) PUSH Re ON STACK 
MOV Ra. - tae} s3 Ra an TACK 
MOV * (SP) : TACK 
MOV 82,R5 :WORD COUNTER 
V #1, @RO :SET DIAG. MODE 
1S MOY 8? : BYTE COUNTER 
MOV aMSTCK!MCLK!DMD, 9RO;SET SECTOR & MANT. CLOCKS 
BIT #MWR, IRO sCHECK WR WATT T IN MAINT. REG. 
REQ : BRANCH 
MOV 8-1,a8ECDATA  3ECC DATA BIT IS A ONE 
SEC ;SET CARRY 
ROR R? ;MOVE 1 FORWARD 
2s: CLR JBECDATA EPR DATA 8 BIT Is =0 
ROR >MOVE O 
3$ MOV 


8OMD, IRO ‘en segTOR AND CLOCK 
TST gaTSECCG 31 THI Bt TO RENERATE ECC ? 


BEG US 
NC  JEDATENV R OF CLOCKS FOR DATA. ENVELOPE 
Hse Pevauectest ! i nee Fe ss0O, 5 AND TEST ECC <--------) 








1a elie Wee ch 6 ve Daas ¢ CONTROLLER TST-PT 2 


DZRIHA. SUB OISk 
3108 053672 005302 
8 BER Ee 
318 oe7be ieee 
33 012605 
Te ETE 
aiid Peacie pi set 
3113 OS3716 900207 
3114 
8115 
3116 
gil? 
$18 
iis 


053594 


7$: 


ee ee ee + eee 
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Re 

4§ 

RS 

43 JaWWORD 
(SP)+ eof 


Ps, RO 
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sCOUNT FOR BYTE ENO 
bu NOT, BYTE ENO. CONTINUE 
t ND CONTINUE . 
HORO EN 
:POP STACK INTO 
: POP TACK INTO R 


‘POP STACK INTO R 
SEXIT <-c----ennnnnnnennnnnannnnnnnee 
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| OZRIHA.SUB _. BISK SIMULATION 


ari tale ahaeine te 
Hiwatt DATA HOUSEKEEPING ROUTINE 
NPHEEUSESORELEGSTESESSOSSSRS;TERERSEAHHELHOSHOEHEOESESEAEGSEN 


BoB VKH? 


es 


tutu 
aw 
SRS 
V—ODDD 


see DD 
1 4 cu 
er 


Statatatatat=tatatata4 
Nasaeeae 


FREHV-SIBOIKREGG 


gens Seems weave 


T, CONTINUE 
CONTAINS MAINTANENCE SEG. 


«c= 
N 


ee 
052720 
053724 4 ;NO. OF ZERO WORDS TO BE WRITTEN 
01Si44 31S ms Fat Ned TEST 
BE 


177777 : THESE "airs ARE TO SENATE Ecc 


pete 7$: 
053604 ' nov ’ ine ian ON SIMULATED BiSk 
SBRANGH TP NONE TO GE RI TTEN 


PC, JSWRITE ;WRITE ZEROS ON SIMULATED DISK 
DBNWORD, (R3)+ ‘TORE aa 


ee 


R 
: 


ee fas 


R 
F 


;NO MORE ECC TO BE GENERATED 


;WRITE ECC] AND ECC ON SIMULATED DISK 
;STORE IN WEEC] AND WEEC2 


re 


28 


91 
31 
31 
31 
31 
91 
91 
81 
31 
91 
91 
91 
91 
31 
91 
91 
91 
31 
91 
91 
31 
31 
31 
91 
91 
91 
91 
31 
91 
91 
91 
91 
91 
91 
91 
91 
91 
at 

1 
$1 
91 
91 
91 
91 
$1 
91 
91 
91 
91 
91 


SN SSS SFR IG Fae VenLoweS Sa 


AAA 
££ 
pm be b= bee 





OODODNOODDOODWWW 


aT 


iL 


9178 


OD 

-— 
a 
—— 
OS 


t 
1 


PECL SSESRRPERE SS 


“A, RPOY, 





/b S CONTROLLER TST-PT 2 

OISK SPMULATION 
004737 053506 JSR 
Or BRET nay 
MOV 
i? c 6S: JSR 
013723 053504 HOV 
ie Bre 
aes iy 
pt ge83 MOV 
012801 MOV 
ees ee 
1 RTS 





GOS 
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SEQ 0264 
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PC, JHWRITE WRITE DATA GAP 
a stWOR ,(R3)+ STORE IT 

iM 

PC, DAWRITE 


;WRITE TOLERANCE GAP ZEROS 
QeWWORD,(R3)+ .;STORE THEM 


R 

eg 

(SP)+,R4 ;;POP STACK INTO RY 

(SP)+,R ;;POP STACK INTO R3 

(5P)+°R :;POP STACK INTO Re 

(SP)+°Ri -33:POP STACK INTO R1 

(SP)+.R0 s POP STACK INTO RO 

Ri EXT] +--------------------------- ) 








9195 


eer 


eis 


SCC EEE 
WO IMU UIUH-O 


3 


fororure 
Powe 


11-DZRJH-A, RPOY 
ada br 





;*THIS IS THE ad DISK 

ONE SECTOR OF SPACE IS ALLOCATED 

| shneanementeecetiacemianpeae se nator rae sane 
TrttitiiitiitiiiiiiiiiiiiititiiitiitiiitiLiLLi iii LLLLLLL LLL 


; *ONLY 
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SK SIMULATION 
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— 9 Ue ee 
wo 
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e 





SEQ 0265 










Smrn : 
20 
OO 





ap 
OLERANCE GAP 28 BYTES OF 9 
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DZRJHA. OISK SIMULATION 


‘6 
MULATIO 


Car ee ae GE eee 


SAURITE HEADE 


5 RRRRARREAERAR ERA ARES EE RALAA ERASE EEE RERAA ERA RE REE EE RERLLARERE 


s*THIS SUBROUTINE IS THE FIRST IN A SERIES OF NESTED SUBROUTINES 
HT 1 ISSUES DIAGNOSTIC MODE, AN EXTRA DIAGNOSTIC INDEX, AND THE 
att THEN CALLS THREE OTHER SUBROUTINES, WHICH IN TURN CALL OTHER 
:¥SUBROUTINES. THE THREE SUBROUTINES CALLED HERE ARE: 
; ISSUES SECTOR cLOCKS TO SET SECTOR FOUND FLOP 
‘WRITES THE SECTOR HEADER 
!WRITES THE ACTUAL SECTOR DATA 


;#ALL_OF THE ABOVE MENTIONED “WRITING” IS ACTUALLY DONE INTO A CORE 
;#BUFFER AREA CALLED "DISK’ VIA THE MAINTENANCE REGISTER (RHMR) 


RNCTRI: . ; RUN’ LINE STALL COUNTER 
COMWHD: MOV ;SAVE PC OF JSR + 4 
: , SAVE PC OF JSR 


oc0000 
11637 


S$ 


& S3e8335 


3S 32353 


* RUN’ 
T Up BY THE TEST) 
ay TER = APPROX 4SOUS 


; Wants 
ie UNTIL = a 


DSWSECTR,-(SP) ;GET DESIRED SECTOR/ TRACK 

& {sP) MAKE ONLY SECTOR 

(SP)+. JRWTRK ; 

R1, a#SEARCH *TSSUE SECTOR CLOCKS TO GET TO 
‘DESIRED SECTOR < 


3 BR 2 


gos 


$248 
$249 
3250 
$251 
$254 
9255 
4528 
9259 
$260 
3261 
3264 
$265 
S266 
9267 
$268 
9269 
$270 
Pe 
Se 

9274 
ase tee 
3377 
9278 
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OZRJHA. SUB ATION 


ISK SIMUL 
UTAK: WORD \ SING 0 19 HOVE NOPS 


c YLINDER 
s SECTOR AND TRACK 


sKEYe 
;G00D CRC 
;DUMMY ERROR CALL LOCATIONS FOR THE WRITE HEADER OPERATION 
: NOP. ;IF “ERROR 6” gd 


I 
SHRP GAP GOING ON DISK 
IS NOT RIGH 


;WORD NO. CONTAINS WHICH 
: I THAT IS 

“FIRST OF TENTH, OR WHAT EVER. 
;BAD WORD IS WHAT IS GOING ON DISK 
;IF “ERROR 6” INSERTED BY 

iT RS ¢ 

CAB OF FIRS 

‘AFTER SECTOR GAP IS IN 

: ERROR. 


$295 
9296 
9297 
$292 
9299 
9300 
$302 
$303 
9304 
9305 
9306 
$307 
9308 


a 
Oo 


enssgses 
WOOnNOUW CUI 


;WORD NO. CONTAINS 20 

RIGHT BYTE IS SECTOR GAP 
LEFT BYTE IS SYNC. BYTE. 

;BAD WORD IS WHAT IS GOING ON 
;DISK 


HF aes 6" mJ TNSERTED 8 BY 
sheen GOING ON Disk 


INS 


;WORD NO 1 = CYLINDER NO 
;WORD NO d = SECTOR/TRACK 





~ 
~ 
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DZRJHA. SUB OISK SIMULATION 


9333 ;WORD NO 3 = KEY] 
WORD NO 4 = KEY2 


Bog MORO IS WHAT IS GOING ON 


OS5516 000240 : NOP 


boca EH ne war 


;GO00D DATA IS WHAT D SE ON DISK 
;BAD DATA IS WHAT IS GOING ON DISK. 


;WORD NO IS 5 
;IF “ERROR 6" INSERTED BY 
:WRHEAD SUBROUTINE, THEN HEADER 
:GAP GOING ON DISK’IS WRONG. 


;WORD NO GIVES WHICH OF 
s THE HEADER GAP WORDS 


;WORD NO 1 = FIRST HEADER 
BAD WORD IS WHAT IS GOING ON DISK 


s IF “ERROR 6" INSERTED BY 


;ARE ANY ttn DETECTED ? 
;IF YES 
; WRITE THE AORTA 


;FORMAT COMMAND NO. OF DATA 


;;POP STACK INTO RS 
+ bop Bie etary INTO RY 
TACK INTO R3 
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9387 oOSSSSO 012602 MOV (SP)+,R2 s;POP STACK INTO R2 
9388 osssS2 O1ebot MOV (SP)+-R1 ; POP STACK INTO Ri 
9389 055554 Oleb MOV (SP)+, RO : POP STACK INTO RO 
93390 os5556 000207 RTS PC EXT 
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OZRIHA OISK SIMULATION 


; A an RR REE SO 
5 RRRRRA REAR ALE LEE ELLER AAA E KEELE REE EAE E RAR EEE ERE EEE ERE LER ELE 


;#RO = MAINT.REG. 
:*R1 = SIMULATED DISK 
BYTE COUNT 


:#Re = 
sand = WRITE rh 
*#RS = WORD COUNT 


os 
8 


94 
34 
34 
34 
94 
34 
34 
94 
34 
34 
94 
94 


ay ge ew ys 
WONMUTCOITH 


;;PUSH R1 ON STACK 


8SECGAP, R1 ; SIMULATED DISK INDICATOR 
#RHMR, ’ RO *RO NOW HAS MAINT. REG. ADDR. 
#DMD, JRO *SET DIAG. MODE 
:WORD COUNTER 
aMSTCK K ORO ‘SET SECTOR FOR FIRST BYTE 
aneTCK! MCLK! DMD ORO; SET SEC SECTOR CLOCK, I 
BMUR, BRO CHECK RRTTE ait IN MAINT. REG. 


Q0o00 G200000 


oOo 
R Raves 
Bo comoe- FVQVVs 


8 
io 
3 


;SET CARRY 
;MOVE ONE FORWARD 
;MOVE ZERO FORWARD 
CLEAR CLOCK, SECTOR 

*BYTE C TER 

;SET BIT CLOC 

:CHECK WRITE eIT IN MAINT. REG. 
;BRANCH IF ZERO 


;SET CARRY 
;MOVE ONE FORWARD 





DERIHA-SUB 


Gse7e) QuneMl 


Ossie 


heer ag 
57: 


055736 


056130 
056134 


OISK SIMULATION 


12710 
001 

tear 
ai 
012737 


a 


000001 


000004 
055560 


0S2460 


oSS510 


052460 


001126 
0S5510 


0S2460 
001124 
oss51e2 


S$: 
6S: 


73: 
10S: 


11S: 


12s: 
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BR 6S 

CLC 

ROR 3 

MOV #DMD, ORO 
DEC 2 

BNE 4S 

DEC =—s_«rRS 

BNE 15 
MOV =—s-R3, (RL) + 
TST = RB 
BEQtié?S 


MOV #1, J#ERWORD 
CLR gu$c00a7 


MOV 3, J8SBDDAT 
MOV #104006, d#SEGPER 

IMP adel ;BRANCH OUT ----------------------- ) 
MOV #18. ,R2 sCOUNT NO. OF SECTOR GAP 

MOV #20; "@HERWORD COUNT TO GIVE ERROR WORD 

JSR PC, JkWRITE “WRITE SECTOR GAP 


NOY —@HLINORD, (R1)+ STORE SECTOR GAP WORD 
R2. J¥ERWORD ;IF NOT GET ERROR WORD NO. 
GOOD WORD 


aasGDDAT 
MOV a #HWORD, JSBDDAT;BAD WORD 
MOV t #104006, s SUSECPER: STORE “ERROR 6" IN SEGPER 


BR H OU 
DEC Re HAVE 18 WORDS OF ZEROS BEEN WRITTEN ? 
BNE 10$ i NOT CONTINUE 


;AT THIS POINT THE SECTOR FOUND FLOP SHOULD 
BE HIGH, SO THAT THE HEADER SYNC BYTE CAN BE GIVEN. 


;HOWEVER, IN THE DRIVE TIMING ERROR TEST THE REST OF THE ROUTINE 
1S ABORTED 


TST  @sTESDTE _ IS THIS A DRIVE TIMING ERROR TEST ? 
BNE 178 SBRANCH OUT IF YES ------------------- 
JSR PC, @SWRITE ;WRITE ONE SECTOR GAP 0 BYTE 


AND ONE SYNC. BYTE = 230 
MOV Q#WWORD, (R1) 7 SAVE O BYTE AND SYNC BYTE 
CMP QERSYNC, (Rl)+ ;IF ad BYTE RIGHT 


BE 1 NUE OPERATION 
MOV #20. , J#ERWORD IF NOT GET READY FOR ERROR PRINT 


~ MOV DBRSYNC | IBSGDDAT ; GOOD WORD 


MOV -(R1) ,a&SBDDAT WORD 
MOV #104006, DuFSYNER: INSERT "ERROR 6” IN FSYNER 
BR 17§ BRANCH OUT 


;FOUR HEADER WORDS 
StL, Ra ;POINTER FOR HEADER TABLE 






B: 
£ é 


Rue oRees 


Bat 


rmMo 


ABSAR IARI 
OO NMUI£ WHO 
fat 


4 


0S6236 


f 


penorannmnnnntny 


“D2RJH-A, RPOY 
ArSk SIMULATION 


0080S 052469 138: 


foo] on] | oe ] 
aa er 
Nt 
SSS 


S98; gogoe : 
te Sa 
auaee Endas 


Snes sik 
BIeg Evegh 


ws 
N= 


oO 
-_ 
we 
Oo 
_ 


‘& OSKLS CONTROLLER TST-PT 2 


S53S06 
053594 


OS5514 


osss20 


0S2469 


001124 
osssee 


14S: 


' 268: 
» 15S: 


168: 


178: 
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EN 

(Ra), , (RL)+ Hi IT CORRECT ? 

‘TF GOOD CONTINUE OPERATION 

:IF NOT GET READY FOR ERROR PRINT 
R2, DSERWORD sWORD NO 
-(R3),a8SGDDAT GOOD DATA 
-(R1)‘a8$BDDAT BAD DATA 
#104008. JSERHEAD: INSERT “ERROR 6” 
178 !BRANCH QUT --~---------------------- ) 
Re ; ARE 4 HE HEADER noROS DONE? 
13 IF NOT CON 
PC, JRWRITE WRITE 
DaUWORD, (R1) ;STORE CRC 
(R1)+,a¥GCRC  ;COMPARE GOOD CRC 
20$ :TF GOOD CONTINUE OPERATION 

*IF NOT GET READY FOR ERR p PRINT 
-(R1),a8SBODATA ; ; BAD cRC -HRITTEN 
aaccre, ae$ OAT 
aS sohdbe BR 





wi em OF HEADER GAP 

86, J8ERWORD s ERROR WORD NO SET 

PC’ JaWRITE *WRITE HEADER GAP 

QSWWORD,(R1L)+ STORE 

16$ : TF GO00 CONTINUE OPERATION 
:IF NOT GET READY FOR PRINT 


R2, J8ERWORD sERR WORD NO 
o#$60087 $600 bara 
-(R1), a8$BDDAT :BAD DAT 

sigvobe, JRERHOGP: $ STORE “ERROR 6" 


wee een ew meme em ee meee mmm em ew = ) 





;ARE S HEADER GAP ZEROS DONE ° 
IF NOT CONTINUE 








;R-OK, EXIT --------------------- ) 
WS,D¥ERWORD IF NOT GET READY FOR ERROR PRINT 
), a8SBODAT 


#104006, asHOESYN 


(SP)+,R1” ;;POP STACK INTO R1 








9553 
9sS4 


ose402e 90020 


! 


s 
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DZRIHA. SUB BISk SIMULATI 


RIS 
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Rl 


















MNDEC-11-D2RJH-A,RPOY’S 6 DSKLS CONTROLLER TST-PT 2 MACY11 27(655) 30-MAR-76 20:59 PAGE 228 SEQ 0274 
DZRJHA. SUB OISK SIMULATION . 


9562 s RERRRERRERAA EAR ARAA RRA A REAL RELA LAARAAARAALARA RAAF RAL AERA REL ALLS 
S553 : FSEARCH SECTOR 
eepe 5 RERRARALASAAERSSSESRESRA LAR EAE RALSLSSAA ERASE SLES LAAAFRA EAA AL ELS 


357 3% RO=RHMR ADDRESS 

9$7 :# R1=PASSED ARGUMENT (SECTOR SEARCHED FOR) 
;* OCK_C BYTE) 

9574 ;# = 
3H RS=BYTES PER WORD COUNT 





;*#SECTOR PULSE IN CASE: IT IS SET. 
3 #AT THE BEGINNING OF EACH SECTOR, ONE SECTOR CLOCK HAS TO RISE 





9675 
0 ;#BEFORE INDEX IS GIVEN TWO SECTOR CLOCKS ARE GIVEN TO RESET 
9679 
989 





9561 :#BEFORE MA CLOCK, THEN N EVERY El EIGHT MAINT.CLOCKS, ONE SECTOR CLOCK 
gs2.—i«‘iy #15 BENTTORL. wird THE MA CLOCK 

983 ;#THE SECTOR CLOCKS ARE NUPBERES AS FOLLOWS: 

eee ; #THE SECTOR CLOCK UNDER INDEX - 0 

9586 #THE NEXT - 1 

past iaTHE NEXT - 2 

3529 TA J THE LAST SECTOR CLOCK IN ONE QNE_ SECTOR TOR. Has NUMBER - 608 

9590 SECTOR WILL HAVE 608 SECT 

95a :*THE NEXT SECTOR THEN HAS ANOTHER 608 gEetne CLOCKS 

9592 :#AND SO ON 


=O 
cr 


az 
B28 


TOR 
VE ne SE TOR CLOCKS ARE GIVEN FOR 
I 





9594 
9595 
23 056404 900000 SECTR: 0 ;SECTOR SEARCHED FOR 
9598 OSE406 012137 OS6404 SEARCH: MOV . (R1)+,aaSECTR ;SAVE SECTOR SEARCHED FOR 
9599 OS6412 O1004 MOV RO, -( SP) >;PUSH RO ON STACK 
9600 056414 010146 MOV R1'-(5P) ; BUSH Ri ON STACK 
9601 OS64i6 O10246 MOV Re, (SP) 3 Re ON STACK 
9602 O56420 010346 MOV R3,-(5P) PUSH R3 ON STACK 
9603 OSb4e2 O10446 MOV R4’-(SP) :sBUSH RY ON STACK 
9604 056424 O10S46 V RS; -(SP) RS ON STACK 
$605 056426 Sea 015000 v JeRHMR, RO NOW RO HAS MAINTENANCE REG. ADR 
9606 OS6432 013703 OS6404 MOV DSSECTR, RO “LOAD SECTOR COUNTE 
a8 056436 012710 000001 MOV WON , BRO :SET DIAGNOSTIC MODE 
9609 opie 052710 000010 BIS aMSTCK, ORO -SET SECTOR CLOCK 
446 042710 000010 BIC BMSTCK, OR CLEAR CTOR CLOCK 
O564S2 052710 000010 BIS aMSTCK, OR : sec OR CLOCK 
OS6456 042710 090010 Bic TCK: aR ; cL 


PRRTRE 
WMfWwMH-O 





TARTS 
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NNDEC~11-02RJH- 


& toy chan. te CONTROLLER TST-PT 2 
OZRIHA. SUB ATION 


OISK SIMUL 






916 056462 052710 900014 BIS  wMINX!MSTCK,9RO ;SET INDEX AND SECTOR CLOCK 
317 O5e4e 042719 CO0OIY git WNINX!MSTCK: ORO ; RESET NOEX AND SECTOR CLOCK 

9618 0584; 70 R3 

9619 056474 O0146) Bea s7S HIF SECTOR O Io REQUIRED, EXIT ------ ) 






32) ;NOW 304 WORDS WILL START (608 BYTES) 


9623 ea! F viel BYTE MAINT. Togenien oom With GO HIGH, THEN MAINT. CLOCK WILL SO HIGH 
;*BOTH WILL COME DOWN TOGETHER N MAINT. CLOCKS WILL BE GIVEN 


Fon Se On BYTE, AND NO ALL OT a evies Tih NEXT SECTOR, SECTOR CLOCK 


;ONE WORD ONLY 










oe 000010 18: MOV a8., Re ;BYTE COUNTER 
0S650e Ole705 00002 MOV 8 RS BYTES PER WORD 
056506 052710 000010 BIS aMSTCK, ORO ;SET SECTOR CLOCK 
OS6Sle 052710 Oo0000e BIS #MCLK, RO ;SET MAINT. CLOCK 
000402 3$ H_TO CLEAR SECTOR AND CLOCK 





; BRANCH 
TERT ELK : ete OTH CLOCK 





71 1000 1s $: 






8$: WNCLK, a CLOC 
#MCLK; JRO pis naIAT, CLOCK 
Re YTE COUNTER 
&$ :CONTINUE IF BYTE NOT COMPLETE 
MOV #7,Re TUP FOR SECOND BYTE 
Dee #75 WORD. CORPLETE? 
BNE es CONTINUE F_NOT COMPLETE 





;T0 GIVE SECTOR CLOCK AND MAINT. CLOCK 






;NCW 303 WORDS ARE LEFT AND ALL ARE IDENTICAL 









us: HOV a ” SBVIES, PER BORD COUNTER 
cs: MOV a et COUNT R GRAINY clock COUNTER?) 
BIS SAS TEKINCLK, DRO ; K AND MAINT. CLOCK 
6S: ag ancUe aR sat Frmatht tack 
: Bie He SRD ESET MAINT 5, GOCK 
DEC BYTE Con C 
6 ore COMPLETE 
DEC RS ne COMPLETE ? 
BNE 5 :CONTINUE IF NOT 
DEC Rl sIS SECTOR COMPLETE ? 
BNE 4§ :CONTINUE IF NOT 
BIS areaTCK., aR SET TOR gt Qk 1 MORE TIME (FOR &09) 
DEC R3 ig REQUIRED NO Sectors COMPLETE ? 





Sa IMSINSSABARRIEE SORE RR ERE A 


97 
97 
97 
$7 
97 


0 bo 
fcWwrue-O 


001317 


000000 


Ww 
“J 


BS Pong Sg ot 
Se 


Besser eegscoe 
ae Ads 


2288s 
-_ 
SRE 
- 


on 
a8 





1-DZRJH-A, RPO4/S“& OSKL 
OISK SIMULATIO 


OS6ES6 
OS6660 
015144 


177777 
o0040e 


054256 
0S32S0 
053254 


O15i44 


690017 


053250 
03254 


7$: 


2 CONTROLLER TST-PT 2 
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;CONTINUE IF NOT 


;;POP at eck NTO RS 
;;POP STACK INTO RY 
ie Tee HN #3 
+ Bop STACK iNT RI 
;;POP STACK INTO RO 


5s ERAAKAALALALERALAAA LALLA LALLA LALAARFRAAAALSLLLERELSA RE LEAL LA EE 


;#READ ONE SECTOR OF DA 
5 5 SERRA RARER AR HEHEHE AEE SEE REE HEE AE EEE RE RHEE EAE RR EEE 


RNO: 
RCOM: 


0 
0 


REDATA: MOV 


1S: 


2s: 


38: 


4§: 





NO. OF WORDS READ 
EXTRA STORAGE 
sSAVE NO. OF WORDS ONLY FOR INFORMATION 
EXTRA WORD ONY FOR INFORMATION 
t Etc ST 
S ARE TO GENERATE ECC 

CTOR 


ERK SIMULATION 
CONTENTS 


S AN ECC T ST 
ee BITS ARE TO BE GENERATED 
A GAP 14 POLERONCE GAP 
TO READ CONTENTS OF WORD 


= 


::POP STACK INTO RI 
: RETURN 
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DZRJHA. OISK SIMULATION 







715 © REFKERKLHKELRERASESRARAAREAALARSEAASEKLEAARRARRRALRKSRAKRASREALERE 
9716 OS&772 RPVECT: 

717. 058772 104400 057000 TYPE S$ :; TYPE ASCIZ STRING 

9718 056776 Oc0423 B (GET OVER THE ASCIZ 
9719 -:65$: .ASCIZ /UNEXPECTED RPO4 tNTERRUPT FROM PC = / 
9729 OS704 ~ 64g: 
9721 OS7046 104401 TYPOC ; TYPE FROM PC 

$722 O570S0 Ole77? OS&772 135670 MOV BRPVECT, JRPVEC "RESTORE TRAP RPOY VECTOR 
9723 oS7956 o00000 HALT : TO CONT 
3724 PEST T tt Ttti Titi iiiriiiitiitttiiritiiittitteriitt ti itttttitt 
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DZRJHA. SUB 399 EE EEE EE 


RIUR EP REST: 


~d 


is 


BEREEDRRESEREESEERE REMY 


Bese eee 


Ft 2SFEFESFAS 





. SBT TL 
-SBTTL ##*SYSMAC LIBRARY ROUTINES### 
~SBTTL 


-SBTTL SCOPE HANDLER ROUTINE 
et gh he ee eg a tg dag gat ee get 


thus Sats Sr MIPRERCSTSTNN) INTO THE BISALAY REC. (DISPLAY(?:0) 


i SHITCH OPFIONG PROVIDED BY TMI3 ROUTINE. ARE: 


ted tat FRMIBY I RATIONS 
: ¥SWO9=1 LOOP ON 
; *SWOS=1 LOOP ON TEST IN SWR<7:0> 
3 #CALL 
* SCOPE : ;SCOPESIOT 
SSCOFE: 
CKSWR TEST FOR CHANGE IN SOFT-SWR 
CLR DeNOSYNC AL EAR AR FLAG FOR HEADER ERROR COMMANDS 
éLR aeTSECC ;CLEAR F AG FOR ECC TES 
: WHEN IS AN ECC TEST 
* WHEN = IT IS NOT AN ECC TEST 
CLR aeTSECCG to ec fe gant a CLOCK 
RA cc 
a CLR JsTESOTE sOR ie "for cere rE 
1S: IT eBIT14, aSWR ;;LOOP ON PRESENT TEST? 
OVE ‘YES IF Sul 1421 
javsseSTAR OF CODE FOR THE XOR iste Reese 
$xTST iff RUNNIN ON THE SXOR TESTER CHANGE 
THIS INST TION TO A “NOP” (NOP=240) 
MOV (SP) $3 ONTENTS OF THE ERROR VECTOR 
MOV a8 WERAVE SET FOR TIMEOUT 
nov )+, JHERRVEC HiRes gute ARR VECTOR 
38 ie 33 TO THe EXT NEXT TEST 
SS: CMP )+, (SP)+ ;3CLEAR THE STACK cK AFTER A A TIME OUT 
HOV )+; JHERRVEC is TORE 
SENT Seet 
6S: ; aeegENO OF CODE FOR RTH XOR iigte 
08,aSWR- 5; ON SPEC. TEST? 


of 
STSTNM 330N ie GHT TEST?  SWR«7:0> 
ero. R -BR IF 3 
B LG iiHRS AN OCCURRED? 
CMPB © SERMAX,SERFLG ;;MAX. ERRORS FOR THIS TEST OCCURRED? 


2s: 






DoRIHA. SUB 


97 
9783 


dedgaeans 


28 


ee: 
re 
i: 
3 
9800 
= 
ES 


ZRIH-A,RPOY/S/6 DSKLS CONTROLLER TST-PT 2 
SCOPE HANDLER ROUTINE 


101015 
77? 001000 121724 
1404 
Sk 001106 
1 
005037 


101 


O0~-00 
an 


SOVER: 


R 
SMXCNT: 4 


MACY11 27(655) 

3$ 

. ‘iaeaamae 

SLPERR, SLPADR 
VER 


LG 
Naa 
| beaeaaee 
$PASS 
1$§ 


SICNT 
STIMES, SICNT 
SOVER 


#1. SERMAX 
STSTNM, JDISPLAY 
SLPADR, (SP) 


30-MAR-76 20:59 PAGE 233 
ie IF NO 
ON ERROR? 
IF NO 
ie LOOP ADDRESS TO LAST SCOPE 
;;ZERO THE ERROR FLAG 
cs THE NUMBER OF mY aaataates 10 MAKE 


SCAPE_TO_THE NEXT 
ii ss INMI T ae 


in dhs TreRAT IONS 


ERATION COUNT 


tS Gncy 
HOR a TEST NUMBER 
i3E TURN ADDRESS 


t:MAX. NUMBER OF ITERATIONS 
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OZRIHA. SUB CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 


-SBTTL CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 


7 HHEINHHHEHHEHHHHEHHEE HEHEHE HHHE HEHEHE HEE 

: &THIS ROUT IN IS CHANGE A 16-BIT BINARY NUMBER TO A S-DIGIT 
;*SI R AND TYPE IT: DEPENDING ON WHETHER THE 
; OR NEGATIVE A SPACE OR A MINUS SIGN WILL BE TYPED 

; OF THE NUMBER. LEADING ZEROS WILL ALWAYS BE 
a WITH SPACES. 


:# MOV ;;PUT_THE BINARY NUMBER ON THE STACK 
. TYPDS . ;;G0 TO THE ROUTINE 


eoeSe 


tebibipebepeoiow 
8 
& 3 


ee 
OONWUI£C UIT 


ae 
ee 
be 


a 
e 


—-OO00000 
La) 


Be 
Bm 


% 
cre oem ereeee ee 


ae 
mame 


ee 
a 


Ft 
Rg 


BCD DIGIT BY 1 


002402 

005202 

000774 

peo ADD BAC 
00S 

001002 


ro 
_~ 
ThA 


FQ 
NG LEADING 0’S? 


R 
x 
lapel 


BB 
— 
o 
1-1-2 


-1(R3) 


w 


9820 
9821 
aee4 
9825 
9826 
9827 
9828 
9829 
9830 
3831 
9832 
9833 
9834 160105 FORM THI 
9835 
9836 
9837 
9838 
. 9839 
9840 
9841 
9842 
9843 
9844 
S845 
3846 


. 
ie 


I 
A SPACE _IF NOT_ALREADY A DIGIT 
ree IN THE OUTPUT SUFFER 


g 

N 

8 

REKBSE 

er ter 
38 


ss 
BGs 


: 


Ore 
rene. 
Boe 
~m 1 
So- 
GJ~ 


ee 
Be 


: ;;BR_IF_NO 
177777 177776 SP), -2(R3) is YES-oSET THE SIGN FOR TYPING 
se THE TERMINATOR 


+,RS ;;POP STACK INTO RS 









ae 


ts 


mr 
hts 


MNDEC-11-D2RJH-A 
DZRJHA. 


a 


me 
eres 





OS7S65 
000002 








000004 


RPO4/S/& DSKLS CONTROLLER TST-PT 2 
SONVERT BINARY TO DECIMAL AND TYPE ROUTINE 


$DTBL: 


$OBLK: 





100. 
10. 
BLKW 


KO6 


MACY11 27(655) 
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;;POP STACK ANTS Rl 
;;POP STACK INTO RO 
;;NOW TYPE THE NUMBE 
;;ADJUST THE STACK 
;;RETURN TO USER 
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DZRJHA. SUB TYPE ROUTINE 


-SBTTL TYPE ROUTINE 
SOOITINE 70 TYPE RECT? Mecanar MECGRGE MGT TERMINATE WITH AD. 
i ROUT TINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A O BYTE. 
j THE replated WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED. 
0 SNULL_ CONT Bite THE CHARACTER TO BE USED AS THE FILLER CHARACTER. 
SFILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED. 
“$FILLC CONTAINS THE CHARACTER TO FILL AFTER. 
;*CALL: 
3#1) USING A TRAP INSTRUCTION 
+% TYPE , MESADR ;;MESADR IS FIRST ADDRESS OF AN ASCIZ STRING 


TYPE 
MESADR 


TSTB STPFLG 3315 THERE A TERMINAL? 
BPL 1$ $3 F YES 
He HERE IF NO TERMINAL 


1 ADDRESS “a Oaths STRING 


C ene ONTO STACK 
ve ii Rt isnt T THE TOR 


ERNINATOR POP IT OFF. THE STACK 
F RETURN PC 
WHT, (SP) ru IF <HT 
#CRLF, (SP) ;;BRANCH IF NOT <CRLF> 
cep) ;3POP_ <CR><LF> EQUIV 
TYPE ACR AND L 


9892 
9893 
9834 
9895 
ae97 
9898 
360 
9901 
9902 
9903 
. 9904 
9905 
9906 
9907 
9908 
9309 


SCHARCNT : 55Gb a R_COUNT 
es 33GE TCGARACTER 


PC, STYPEC 1160 Te Tate CHARAC TER 
sFILtc, (SPI+ $315 IT IME FOR FL FILLER CHARS. ? 


2 GO 
$NULL, -(SP) +e OF FILL’ LER” CHARS. ” NEEDED 
(SP) ED TO BE TYPED? 

© sensed . OP THE NULL OFF OF STACK 
ue 


;HORIZONTAL TAB PROCESSOR 


8$: MOVB #’ , (SP) ;;REPLACE TAB WITH SPACE 
057746 98: JSR 35 TYPE A SPACE 
000007 060012 BITB ,$C ;;BRANCH IF NOT AT 


SERBS SISSIES 
WONOUC WHO 


Sass 


Bae 





MO6 
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DZRJHA. SUB TYPE ROUTINE 
9927 38 STOP 
9928 ey ag Spa sze aye (SP)+ tiP0 SPACE OFF STACK 
9929 057744 000724 BR 2S : GE T CHARACTER 
9930 057746 105777 121176 STYPEC: TSTB aSTPS $SWAIT GNTIL PRINTER IS READY 
993 10037 BPL STyPEC 
99 116677 000002 121170 MOVB (SP). aSTPB ;;LOAD CHAR TO BE TYPED INTO DATA REG. 
9933 057762 122766 O0001S5 O0000e2 CMPB so #CR, 2USP) 331S CHARACTER A CARRIAGE RETURN? 
9934 057770 001003 BNE a oo “BRANCH IF_NO 
_ 9893S 057772 1 060012 CLRB § $CHARCNT + YES--CLEAR CHARACTER COUNT 
9936 057776 000406 ; BR STYPEX 
9937 060000 le2766 O00012 on0002 1S: CMPB ss #LF,O(SP) . 3315 CHARACTER A LINE FEED? 
9938 060006 901402 BEQ $TYPEX *BRANCH IF YES 
9939 060010. 105227 INCB (PC) + >:COUNT THE CHARACTER 
9940 060012 op0000 SCHARCNT: .WORD 0 *:CHARACTER COUNT STORAGE 
9941 060014 000207 STYPEX: RTS PC 


° a - = - 





HA. SUB tTY INPUT ROUTINE 


1 a P  liln RPO4/S/6 DSKLS CONTROLLER TST-PT 2 - MACYLL 27(655) 30-MAR-76 20:59 PAGE 238 


9943 
9944 
994 


994 
9947 
994 
9950 


9951 
9952 
9953 





121034 
Aerpee 

0003 
061075 
060036 
044614 
000007 
000176 


000011 
001216 


001140 


060016 


. SBTTL Try INPUT ROUTINE 
33 at” tan aeinaiee tae aa neater eam nitt: 


. L 

STKCNT: .WORD 0 j |NUMBER OF ITEMS IN QUEUE 

STKQIN: .WORD 0 :: INPUT POINTER 

STKQOUT: .WORD 0 OUTPUT POINTER 

STKQSRT: .BLKB 9. :;TTY KEYBOARD QUEUE 

STKQEND=. 

Hs INITIALIZE ROUTINE 

1S ROUTINE WILL INITIALIZE THE TTY KEYBOARD INPUT QUEUE 

SSSETUP THE INTERRUPT VECTOR AND TURN ON THE KEYBOARD INTERRUPT 

CALL: 

* JSR PC, STKINT 

1% RETURN 

$TKINT: CLR STKCNT ;;CLEAR COUNT OF ITEMS IN QUEUE 
MOV aS TKOSRT STKQIN MOVE THE STARTING ADDRESS OF THE 
MOV STKQOUT ;;QUEUE INTO THE INPUT & OUTPUT POINTERS. 
MOV On ae TKVEC ; ;ANITIALIZE THE KEYBOARD VECTOR 
MOV $200 spatkvect 33°BR” LEVEL 4 
TST astk CLEAR DONE FLAG 
MOV 4100, aSTKS >;ENABLE TTY KEYBOARD INTERRUPT 
RTS PC + 7RETURN TO CALLER 


;*#TK SERVICE ROUTINE 

s#THIS zB WILL SERVICE THE TTY KEYBOARD INTERRUPT 

;*#BY RE CHARACTER FROM THE INPUT BUFFER AND PUTTING 

;*IT IN THE QUEUE. 

jxIF THE CHARACTER IS A “CONTROL-C” (tC) STKINT IS CALLED AND 

;*UPON RETURN EXIT IS MADE TO THE “CONTROL-C” RESTART ADDRESS (OPERSEL) 


ince: me OSTKB,-(SP) ; ;PICKUP Mae ee 


IC tCl7? (SP) ::STRIP THE JUNK 
CMP (ep), #3 31S IT A CONTROL C? 
BNE & :;BRANCH IF NO 
TYPE SCNTLC :;TYPE A CONTROL-C (tC) 
JSR PC, STKINT >: INIT THE KEYBOARD 
TST (SP)+ CLEAN UP STACK 
IMP OPERSEL ;;CONTROL C RESTART 

1S: CMP (SP), #7 sds IT A CONTROL G? 
BNE 2s H_IF NO 
CMP #SWREG, SWR :315 SOF T” SUR SELECTED? 
BEQ 6$ 13 TO SWR CHANGE 
CMP #9. , STKCNT 3315 ath FULL? 
BNE 3$ He IF NO 
TYPE S$BELL Ha THE TTY 


TST tsp) $3 ste CRARACTER OFF OF STACK 


SEQ 0284 
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DZRIHA try INPUT Rdu 





9397 060200 d21S27 090023 3$: CMP (SP), #23 3318 IT A CONTROL-S? 
3336. 120732 CL aSTKS $30 TSARLE 7 TTY KEYBOARD INTERRUPTS 
19000 06021 Es) TST (SP)+ CLEAN CH HAR OFF STACK 

i 9081 060214 1087 120724 2i$: TSTB aSTKS ::WAIT FOR A CHAR 

1 060220 100375 a BPL 31$ : LOOP UNTIL ITS THERE 

10003 0222 117746 120720 MOVB § @STKB,-(SP) ‘GET THE CHARACTER 

19004 0602 16 177600 BIC #tC17?, (SP) MAKE IT 7-BIT ASCII 

10005 O60232 02 i CMP (SP)+, bel ::1S IT A CONTROL-Q? 

10008 060236 001366 BNE 31$ BRANCH IF _NO 

10997 01 000109 120676 MOV #100, aSTKS : REENREL TTY KEYBOARD INTERRUPTS 
1C908 | RTI ; RETURN 

iis en ier BN BEER BET Usscenee=® 

toot? Senses Seesbs ge Og bd, OF SES 

10012 Os0e62 921627 000175 CMP: ss (SP), #175 -:IS ITA SPECIAL CHAR? 

19013 Ob 3eb6 BGT 4u§ ::BRANCH IF 

10014 16 . 000040 BIC #40, (SP) :MAKE IT CASE 

15018 069274 112677 177520 4g: OVE (SP}+, 9STKQIN s 38ND PUT re IN QUEUE 

P+. +s 

ippis Bepsoa possa, Benes 060035 CMP STKQIN, @STKQEND ::G0 OFF T THE upto? 

i0018 O6031le 001093 BNE 53 ::BRANCH IF 

10019 060314 012737 o&0024 080020 MOV WSTKQSRT,STKQIN ;;RESET THE POINTER 

ione0 Q60322 o0000e SS: RTI : : RETURN 

10022 SSFERERSSSSSSPERESFFLHKALLBSLK KSA RELESERLERSERSLESLSRERELSRHER SSE 
10023 : I LSOFTWARE SWITCH REGISTER CHANGE R 

10004 : #ROUTINE IS EN ERED. af THE TRAP HANDLER WILL 

10025 s HSERVICE THE TEST FOR CHANGE IN SOFTWARE Baten REGISTER TRAP 
10026 ; aL WHEN OPERA tine IN TTY INTERRUPT MODE . 

10027 069324 022737 000178 901140 itkouk CMP #SWREG, SWR 33IS T = 906 T-SUR SELECTED 

19928 060332 001124 53 :EXIT IF NOT 

10029 060334 105777 120604 TSTB = AS TKS ::IS A CHAR WAITING? 

19030 080340 100121 BPL : ::F NOT, E 

10031 bose 117746 120600 MOVB  a$TKB,-(SP) t 

10032 042716 . 177609 BIC #tC17?, (SP) ;MAKE IT 7-BIT ASCII 

19933 960352 O2i6e? 900007 eMP (SP), 9? He IT A CONTROL-G? 

10034 06035 001300 BNE 25 :IF NOT, PUT IT IN THE TTY QUEUE 
1Cc3s AND Ext 

wiki jteeeetbeseeseaeesunsesseaesseneeneseesnstsnenestesenseneestants 
10038 : $CONTROL IS PASSED 10. THIS POINT FROM EIT THE TTY INTERRUPT eet Ice 
19039 ‘ROUTINE OR FROM THE OF THARE aa aia CALL, AS A sunt S FA 
10046 -*#CONTROL-G BEING TYPES TCH REGISTER BEING Rept TED. 
10041 060360 123727 001134 oo0001 és: CMPB ss SAUTOB, Ye ARE WE RUNNING IN MODE? 
10042 060366 001674 BEQ es Het ie 

10043 960370 005726 TST (SP) cONTROL-C 9 OFF STACK 

10044 060372 737 060036 JSR pC STKINT USH THe TTY T QUEUE 

1C04S 060376 1e0S4e CLR astks ftp SABLE TTY KEYBORRD INTERRUPTS 
10046 060402 112737 OO00001 001135 MOVB #1, SINTAG Set INTERRUPT MODE INDICATOR 
10048 104400 061107 TYPE _, SCNTLG sECHO THE CONTROL-G (tG) 

10049 060414 104400 061114 SGTSWR: TYPE SNSWR tS TYPE CURRENT. CONTENTS 

10050 O€0420 013746 000176 MOV SWREG, -(SP) ::SAVE SWREG FOR TYPEOUT 








eeEVE PRR L! Lt iyict CBR ER FARR. Sad cobaat cal ai atn aa 


b= 0 0-2 & = B= 8 0 Bb 0 0 b= 0 Bb Bb 0 = 0-2 0 b= P= FF 0 0 0 0 0 $0 0° 0 0 0 0 0 Bb 9 > 8 = = = Ph 0 0 Ph 0 pe pe 


oONo00oOU 
0 + oo 
2SBR28 





A,RPOY 


= 
a 
~ 


: 
| 


8 
8 
i 


28 


ens 


4S/& DSKLS CONTROLLER TST-PT 2 
tTy INBUE ROUTINE 


MACY11 27(65S) 


asTkB 


-(SP) 
#10177, (SP) 


(SP), #3 
SCNTLC 
SP 
INTAG, #1 
#100, a$TKS 

OPERSEL 


(SP), #25 


20$ 
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;;GO TYPE--OCTAL ASCII(ALL DIGITS) 
:sPROMPT FOR NEW SWR 

LECHAR THERE? 
;;IF NOT TRY AGAIN 


;;PICK UP CHAR 
;;MAKE IT 7-BIT ASCII 


3318S IT A CONTROL-C? 
; BRANCH IF 


PFALLOW TTY KEYBOARD INTERRUPTS 
tECONTROL-C RESTART 


3312S IT A CONTROL-U? 
F NOT 


( 

F_NO 

IT THE FIRST CHAR? 
F YES 


UP 
;ECHO <CR> AND <LF> 
;;RE-ENABLE TTY KBD INTERRUPTS? 


; T 
; ;RE-ENABLE TTY KBD INTERRUPTS 


3s BRANGH F 

3;STRI HOF M3 II 

3318S THIS THE FIRST CHAR 
;;BRANCH IF YES 

:3NO, aur Pre aENT 

33 «| C OVER TO MAKE 
33; __ROOM ay NEW ONE. 
3 sKERP COUNT OF CHAR 
;;SET IN NEW CHAR 
;;GET THE NEXT ONE 
;;TYPE ?<CR><LF> 
s;SIMULATE CONTROL-U 








é 
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o 
od 


0 bb & - 6 b> 6 - 0 pe Cs 


b= > 0--  — <6 ~ & > 9 9 pe 


QORdIN000000 


OOO NIGP UTC LITUI— CD 


Seve ees 


pee bs 


o-— 0 6 = bb 8 = b= 8 = 0 0 0 0 0 0 0 0 8 0 8 8 0 0 0 9 = 9 0 0-2 0 9 0 8 9-2 9 = 92 0 9-2 = 2 = 9 9 0 9 9 pr ee 
omo 


ONNOVOOHVOOVOOOOOVOVOVDOVAVVHVWOOKOOOOVDVWHOVOVOOOOOKHDVI0000N000 
ee ee ne ee ae 0 0 0 bb 2 0 0 0b 0 0 0 oe 


BO NUOP Un ECO B00 PUT FTO BED GORE Cohoe CBOs SOMONE corr 


PRRRPRRRRRERR 


RESSaaON 





. CSABL LsB 


Deg oe ee yg eae gg ey geo ee | ean 
tats ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY 


ie ~ ROCHE :3GET A HARACTER FROM THE QUEUE 
1% TURN HERE ‘CHARACTER IS ON THE STACK 
te ts WITH Saat Ty BIT STRIPPED OFF 


SROCHR: MOV (SP), -(SP) PUSH DOWN THE PC AND 
MOV 4(SP}, 2(SP) + THE 
CLR 4(5P) iT ADY FOR A CHARACTER 
CLR -(5P) ::PUT HM P ON STACK 
MOV 864S, -(SP) : PUT ON STACK 
ae RTI ;;POP NEW PC AND PS 
1$: TST STKCNT ;;WAIT ON A CHARACTER 
DEC STKCNT ;;DECREMENT THE COUNTER 
MOVB S$TKGOUT, /4(SP) 5 5GET CHARACTER 
INC $TKQOU ;UPDATE THE POINTER 


ore STKQOUT, aSTKOENO' -DID IT GO OFF OF THE END? 
SSTKQSRT, STKQOUT’ : RESET ep POINTER 
* RETURN 


TI 
;[uaeeenetaeseanesetecaneneaesshivnsnseneneeneneseeseneseesteass 
jATHIS. ROUTINE WILL INPUT A STRING FROM THE T 


om 


:# ROLIN $s INPUT é STRING. FROM THE 
2 i RETURN HERE : ADORE RST CHARAC R WILL 3 ON THE STACK 
# TOON TRATOR 4 LL BE A at OF ALL O’5 
SROLIN: MOV ;;SAVE R3 
1$: MOV ai 63 +: GET Ss 
2s: CMP TTYINS9. RB +s BUFFE FULL? 
BLOS 33BR oor 
ROCHR BR READ CHARACTER FROM THE TTY 
MOVB = (SP)+, (R3) + eo CHARACTER 
10$:  CMPB #177, (R3) HS I A RUBOUT 
BNE $3 IP IF NOT 
4g; TYPE UES YPE A °?? 
BR 33 Hts THE SUFFER AND LCOP 
3$ ROVE (R3), 98 >:ECHO THE CHARACTER 
CMPS 3s 5, (R34 ss CHECK FOR. FOR RET URN 
BNE ;;LOOP IF NOT RETURN 
L =} (RS) 536 LEAR RETURN (THE 15) 
YP F ;TYPE A LINE FEED 
MOV {SP)+,R3 
MOY (SP) 5658) + Just THE STACK AND PUT ADDRESS OF THE 
MOV 2(SP) t FIRST ASCII CHARACTER ON IT 


MOY s aR i ae 








ei SS oo 
(3b sone oro 


0 = 0-2 bs b= 9 9 ho be Pe pe 
OQAQI0OONO0V0000 


NNDEC= 11 -DZRJH-A RPO4/S6 DSKLS CONTROLLER TST-PT 2 
DZRJ: TTY INPUT ROUTINE 


HA. SUB 


PRRR RRO 


O— 6-- - & op -- ~~ p 
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n 








 STORaGe FOR ASCII CHAR. TO TYPE 
Hi RESERVE 9. BYTES FOR TTY INPUT 





R 
_FICONTROL "G” 









;FROM THE TTY 
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ZRIHA. SUB EAC AN OCTAL NUMBER FROM THE TTY 


o— b= poe 
Ww 


Saatea? 


@ 
ta 


ONONIONOMIOAOH0000 


O—~ b=" b+ b= b= b— §-- & = pH P= P— p+ bp Pp iz 
o— <b b— 0 & ~~ 0 -< b— 9 


o 
e 


000004 o0ccde 


ryis 


Re 


é 


O-O0000 
RE 
ne 

Oo 


a 


-£ 


ag 


2NSF LER LHSESHS 
Be 


Ome fas ba2 b+ f= b> B= = fs Bb pm pe 


y 


ONIN OOO ON0000000 
BEIFRLESLSSBIRRLS 


Bo 2 ae Ho Bs b—2 § = G2 Hs f- ps FF ~2 pame 


~— (Ie 
b= TE be 


aS 


ha 


os 


: 


e 
8 


Seusposnes 


RRRRKKKKKKKKKKKKKKKRKKK KKK PK KRRKKKK KKK KKK 


ae be ee RB BS be Be bm hn bt Be st at Be th he ep es eh be Be pe Bp - fe 


INE TROP ERD ROR PRE ENE eRe 


RRERRRRRES 
ONO £Wl-O 


§ 


+ 0 2 bh 2 = D+ Bo Dm = Bb Ff bm Fe b= F-> Ht = Ps Ho hs > Fs 2 bh bw Po he Po Bh Pe Po 
te 


(sro 


for 


pees 


-SBTTL READ AN OCTAL NUMBER FROM THE TTY 
ATiiiiiiiiiiiitiitiiiiiiiiititttitiititiitietttiitiite 


jATHIS  ROUTIN WILL READ AN OCTAL (ASCII) NUMBER FROM THE TTY AND 
jaTHE I CHARACTERS WILL BE CHECKE TO INSURED THEY ARE LEGAL 
:#OCTAL DIGITS. IF AN ILLEGAL CHARACTER IS READ A"? WILL BE TYPED 
:#FOLLOWED BY A CARRIAGE RETURN-LI COMPLETE NUMBER MUST 
jETHEN BE RETYPED. THE INPUT IS TERMINATED BY TYPING A CARRIAGE RETURN. 
ty ORPSGRN HERE RSMO ORDER BITS SRE CN TOP OF THE STACK 
i +e LPeH CBREER Bt 75 Ake IN $HIOCT 
SRDOCT: MOV (SP), -(SP) ; PROVIDE FOR THE 

MOV 4(SP}.2(SP) z3] heUt 3 fuReER. 

a et + OUeH RL ON STARK 

MOV R= ) srt Sh STAck 
18: ROLIN ::READ AN ASCIZ LINE 

MOV (SP)+,RO *:GET ADDRESS OF 1ST CHARACTER 

mae a 

ae a 
2s: MOVE (RO)+,-(SP) ; PICKUP TH CHARACTER 

BEQ 3$ 3] te PERO as 0 

CMPB ss 810, (SP) : : MAKE THIS os TeRAcTER 

BG 4§ ::1S AN OCTAL DIGIT 

NPB sow 7, (SP) 

BLT 4S 

ASL Rl 3;#2 

R Ro 

Ri 7384 

ROL R2 

ASL RI 3348 

ROL Re 

BIC #tC7, (SP) ;;STRIP THE ase I JUNK 

ADD {SP)+,R 33AD0 IN THIS DIGIT 
3S: ee, (SP)+ ECLEAN TERMINATOR FROM STACK 

MOV RI, JecsP) ::SAVE THE RESULT 

MOV 10CT 

MOV (SP)+,Re 33POP STACK INTO Re 

MOV (SP)+°RI : POP TACK BK INTO RI Ri 

ey (SP}+,R0 : POP 
4S: TS (SP)+ t FROM STACK 

the (RE ape fee 
cs:. TORO 0 

TYPE SQLES "2" "CR" 8 MLEY 

BR is tt try AGAIN 
SHIOCT: .WORD }3HIGH ORDER BITS GO HERE 
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DZRJHA. RROR OU 


10224 \S8TTL ERROR HANDLER ROUTINE © 
gp lagi gt a a re i 


auf aire FREON ITEM NOREEN AND THE ADORESS OF THE ERROR CALL 
taTHe SWITCH “OPTIONS IDEO BY THIS ROUTINE ARE: 
; #SW1S=1 HAL . 


Risin 
SBS 


;;ERROR=EMT AND N=ERROR ITEM NUMBER 


s;TEST FOR CHANGE IN SOFT-SWR 
#-1,08ERFLGS | ;SET ERROR FLAG 


HSI PE 
z 
& 


oo 
: 
N 


SERFLG 
stim. @DISPLAY ; 
0; aSWR 


a 
8 


1 ERROR FLAG 
;;DON’T att THE FLAG GO TO ZERO 
sRESPLAY AY T a) AER RO © OR FLAG 
NO - Sts 
fae 
; COUNT NUMBER OF ERRORS 
ADDRESS OF ERROR INSTRUCTION 


GIG) 
—o— 
£T 
ae 
3 


38 
8 


+= bb = & = = b= & = & + b= = b= = 9-2 H——= h-— Bs §- 2 & = P— p= pe ps 


PER R SERED E ypu 


aN 


88 
43 


b= bp 


PERN 


RRS CRORE 


so 


be fs be 


06 
06 
06 
06 
06 
06 
0S 
06 
06 
06 
Oe 
06 
O& 
06 
O& 
0& 
O& 
0& 
06 
Oe 
Oe 
06 


b= bs bb bo bs Pe fh Bs Pe bm pe bes bs bs he he 


£££ 


es, , OSWR ON ERROR eae, 1 S01 Ser? 


901119 SEPERR (SF) no RETURN FOR LOOPING 
: SESCAPE $ CHECK FOR AN ESCAPE ADDRESS 


001214 SescapE, (SP) + Float RETURN ADDRESS FOR ESCAPE 
RETURN 


Pages 
ta 





fofurorururans 
BISA 


ESSE & 
Pea 


£7 


Bown soR sass SRN TER SES 


: 


8 
3 


z 


Bee neeee 
ERR PRRPRRPRRTRATRRERRERRERRTRRRRRRER F RERRRR 
stat =tetata) 
Bees 


Bas 


Seg 
e 


3 


> 
ee 


-_— 
_— 


is 


RRaneSaes 
WOnNTUW£WwMU-O 


~_ 


a 


bias 

Spon SSSSRERRERIREE Tee eno oes 
oo 
Be 


oR 
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RROR MESSAGE TYPEOUT ROUTINE 


001223 


001114 


061614 











SEQ 0291 








-SBTTL ERROR MESSAGE TYPEOUT ROUTINE 
[ eonencvecnstuoseteranpevenereusneu*nuceamensoresseteenetoenres 


USE eels CONSE ME, LR ABP RU Er, 


;#AND REPORTS THE APPROPRIATE INFORMATION LONCERNING THE ERRO 
seRATYP: 
TYPE 





SCRLF ;;"CARRIAGE RETURN” & “LINE FEED” 
MOV RO, -(SP) 3; SAVE 
CLR RO’ ;;PICKUP THE ITEM INDEX 


BIS8 @eSITEMB,RO 
BNE 1$ ;1F_ ITEM NUMBER ie . ZERO, JUST 


MOV SERRPC , -(SP) HUY SERRPC Por TYPE T ear 





s SERROR ADDRESS 
TYPOC 336 TYPE ~-OCTAL ASCII(ALL DIGITS) 
BR 10$ T 
1S: DEC RO ; ;ADJUST THE INDEX SO THAT IT WILL 
ASL RO WORK FOR THE ERROR TABLE 
ASL RO 
ASL RO 
ADD #SERRTB, RO ;;FORM TABLE POINTER 
HOV (R0)+, 28 lage ype MESSAGE” POINTER 
2s WORD 0 a ees SERROR TESSAGE: resets NTER HERE 
TYPE SCRLF eae ace Rete H aCine FEED 
_ Beg {R0)¢,4s Ha TYPEOUT 
TYPE Ry THE SATAY 
4§ .WORD 0 "DATA HEADER” POINTER GOES HERE 
TYPE $c $s CCAR INGE RETURN” & “LINE FEED" 
S$ MOV Rl. -(SP) *SAVE Ri 
HOV (RO)+, Ri s sPICKUP © “DATA TABLE” POINTER 
. Vy (RO)+, i N 
0 RO)+,RO eek: "ona FORMAT TOOINTER 
6S: TSTB s- (RO)+ "OCTAL” OR "DECI 
BNE 75 FBR BR IF DECI 
MOV O(R1)+,-(SP) 5; SAVE O(R1)+ FOR TYPEOUT 
ryPoc a > 9360 TYPE=-OCTAL ASCIICALL DIGITS) 
73: 
MOV Q(R1)+,-(SP) —; ;SAVE D(R1)+ FOR TYPEOUT 
TYPDS G0 YPE--DECT ASCIT WITH SIGN 
QS: TST (R1) $318 THERE ANOTHER NUMBER? 
BEQ 95 :BR IF NO 
TYPE 11 ii TYPE TWO(2) SPACES 
BR bs He 
93: MOV (SP)+,R1 3 sRESTORE Ri 
10$: MOV (SP)+'RO STORE RO 
Type pacrt $3  RORRRLRGE RETURN” 8 “LINE FEED” 
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OZRIHA. SUB ERROR MESSAGE TYPEOUT ROUTINE 


16358 061614 aye 000 118: ASCIZ 7% / ;;TNO(2) SPACES 
1 06162 EVEN 





din _—< - - ee 8 ee eee 
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DZRJHA. SUB BINARY TO OCTAL (ASCII) AND TYPE 


.SBTTL BINARY TO OCTAL (ASCII) AND TYPE 


De ab Sh ch tg tg tt gS a 
HROCTAL CASCIT) RUMBER AND. TYPE: TT. _ 
HY pli HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 


3 ¥CALL: 
;;NUMBER TO TYPED 
;;CALL FOR TYPEOUT 
;;N=1 TO & FOR NUMBER OF DIGITS TO TYPE 


:3M=1 0 
3;1sT ADING ZEROS 
+ OS CUPPRE S LEADING ZEROS 


;¥STYPON----ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 
; #STYPOS OR STYPOC : 

1% MOV NUM, -(SP) ;;NUMBER TO BE TYPED 
x TYPON CALL FOR TYPEOUT 


3% 
— HERE FOR TYPEOUT OF A 16 BIT NUMBER 


: ;;NUMBER TO BE TYPED 
;;CALL FOR TYPEOUT 


;;PICKUP THE MODE. 

;;LOAD O FILL SWITCH 
;;NUMBER OF DIGITS TO TYPE 
;;ADJUST RETURN ADDRESS 


;;SET THE ZERO FILL SWITCH 
;;SET FOR SIX(6) DIGITS 
ss THE ITERATION COUNT 


a Sa 


eae 
RAS 


Sons 
ae 
S4ng-2 


SRS INSP ONESRR ES 


PEON LUE 


;;SUBTRACT IT FOR MAX. ALLOWED 
;;SAVE_IT FOR USE 

;;GET THE ZERO FILL SWITCH 
;;PICKUP THE INPUT NUMBER 
;;CLEAR THE oy WORD 
;;ROTATE MSB INTO “C™ 


2 
8 
: 


o~r~ 
ES 
Mr tr 4 
wR: 

Lam a 
SH-Sz 
~_—T 


Saeko uwieuaviucuriamirerryer ere eas: 


PRERERRERRRFE RTS TSR RRR TR 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
i 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


e 
R 
AAD 





SHsKTs 
Giant 
— 


aaaae 
® 


2 
ase 


#177770,R3 
4§ 





KO? , 
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OZRIHA. SUB BINARY TO OCTAL (ASCII) AND TYPE 


l 061 005704 TST RY ;;SUPPRESS THIS 0? 
l 061 001403 BEQ S$ ::BR IF YES 

103884 Ob 4S; INC RY DON’T SUPPRESS ANYMORE 0’S 

1 1764 O52 900060 BIS #°0,R3 *:MAKE THIS DIGIT ASCII 

10386 061770 000040 cs: BIS #’ (RB :? MOK Bscit IF NOT ALREADY 

1 1774 11 062040 MOVB 3, 8S >:SAVE FOR TYPING 

10388 O62000 104400 O62040 TYPE ::G0 TYPE THIS DIGIT 

10389 062004 105337 062042 7$: DECB 4 ©- SOCNT COUNT BY 

10390 062010 bossa? - BGT 23 ::BR IF HORE TO DO 

ee Gas Ge me OB Mister ororr tow a sua 
18335 ppepte in 2$ + bo. THE last Alot? 

loses Orone2 | Olseos os: YO CtBb sa RESTORE Re 

rae ea 01 MOV (SP)+;R3 >:RESTORE RQ 

10397 O6e0e6 O16666 o00002 oj0ro4 MOV 2(SP)>4(SP) ::SET THE STACK FOR RETURNING 
10398 062034 Oleblg HOV (SP)+! (SP) ' 

1pNaa BESONB 000 8S: BYTE 0 >:STORAGE FOR ASCII DIGIT 

10401 O62041 000 0 :: TERMINATOR FOR TYPE ROUTINE 
10402 O62042 000 SOCNT: [BYTE 0 *:OCTAL DIGIT COUNT 

10403 O&2043 900 SOFILL: :BYTE O ::ZERO FILL SWITCH 

10404 O62044 00000 SOMODE: .WORD 0 ::NUMBER OF DIGITS TO TYPE 


NNDEC-11-DZRJH-A,RPO4/S/6 DSKLS CONTROLLER TST-PT 2 
OZRJHA. SUB TRAP DECODER 


10405 
10406 


 RTHIS 


end 
i=] 
Bes 


MACY11 27(655) 


-SBTTL TRAP DECODER 
TESRMR SAUER EREIA AREER EA SNER EHO S EDT RNE RHE SH EERO TER EE reaTenett 
QWER BYTE OF THE “TRAP” 


30-MAR-76 20:59 PAGE 249 


UCTION . 


NE WILL PICKUP THE 
SAND use IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS 


1 
10410 OF THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL 

1041 :#G0 TO THAT ROUTINE. 

bats 06204 010046 STRAP: MOV -(SP) $3 SAVE RO 

10414 O620S0 O16600 ‘o00002 MOV BaP) RO ‘GET TRAP ADDRESS 

10415 062054 005740 TST =(RO) tt BACKUP BY 2 

10416 O62056 111000 MOVB  (RO),RO GET RIGHT BYTE OF TRAP 

10417 062080 006300 ASL . HOEY To fe FOR Vga 

10418 O62062 016000 062070 MOV STRPAD(RO) RO 

10419 062066 000200 RTS RO 3360 TO 

1042 .SBTTL TRAP TABLE 

10423 s*THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 

10424 **BY THE "TRAP" INSTRUCTION. 

10425 

10426 : ROUTINE 

10427 5 ee 

10428 062070 $TRPAD: 

10429 062070 057576 PE  ;;CALL=TYPE TRAP+0( 104400) TTY TYPEOUT ROUTINE 

10430 O62072 051644 YPOC 3:CALL=TYPOC § TRAP+1(104401) TYPE OCTAL NUMBER (WITH LEADING ZEROS) 
10431 062074 061620 STYPOS ;;CALL=TYP TRAP+2( 104402) E ER (NO LEADING ZEROS) 
10432 062076 061660 TYPON 3 | CALL=TYPON TRAP+3( 104403) TYPE OCTAL NUMBER (AS PER LAST CALL) 
10433 062100 057352 YPDS 3;;CALL=T TRAP+4(104404) TYPE DECIMAL NUMBER (WITH SIGN) 
10435 062102 060414 SGTSWR ;;CALL=GTSWR § TRAP+5(10440S) GET SOFT-SWR SETTING 

10437 062104 060324 SCKSWR ;;CALL=CKSWR — TRAP+B( 104406) TEST FOR CHANGE IN SOFT-SWR 

10438 062106 33 SROCHR ;;CALL=RDCHR § TRAP+7(104407) TTY TYPEIN CHARACTER ROUTINE 

10439 062110 SROLIN tt CALL =ROLIN TRAP+10( 104410) Hy TYPE IN STRING ROUTINE 

10440 O62ell2 061136 SRDOCT ;;CALL=RDOCT | TRAP+11(104411) READ AN OCTAL NUMBER FROM TTY 

10441 062114 O4S5656 T.SCOP ;;CALL=SCOP1 TRAPS12( 104412) MY LOCAL SCOPES 

10442 062116 045730 CHECKT ;;CALL=CHECKD TRAP+13(104413) CHECK DVA, RDY, DPR, DRY 

10443 062120 WAIT.T ::CALL=WAT TRAP+14( 104414) WAIT LOOP 


SEQ 0295 
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OZR POWER DOWN AND UP ROUTINES 


JHA. SUB 
10444 

10445 

10446 

10447 

10448 062122 
10449 062130 
10450 062136 
loves Gesi4e 
ives Dest 
10454 062146 
1C455 062150 
10456 062152 
10457 062156 
10458 02162 
1 062170 
10460 062172 
10461 

10462 

10463 
10464 062174 
10465 062202 
10466 

10467 O62212 
10468 062216 
10463 Obee20 
10470 062224 
10471 062225 
0472 062030 
10473 Ob2232 
10474 062234 
10475 062236 
10476 062240 
10477 062246 
10478 062254 
10479 062256 
10480 062260 
10481 Ob2262 
10482 Ob2264 
10483 062266 
10484 062270 
10485 Ob2e72 
10486 062274 
10487 

104 

10489 


737 Ob2266 
737 000340 


Ooo0doo000000 
Fe CRNS 


2 116762 
0637 Ob2e7e 
2737 062174 


B 
2 


oo 
oom ae 
WwW 
NS 


062272 
062272 
O6227e 
116714 


eee 


Bee 


2 


Oo00000000 


a be pes few De hee pee fe ee 


’ 062122 
000340 


ce 


005015 047520 
000122 


000024 
000026 


ooo0e4 


oo00e4 


000024 
000026 


O42S27 


-SBTTL POWER DOWN AND UP ROUTINES 


; © SEAAAKAAA KARA AAA AAA AA AA KRALL E LALA AAA AAA AAR A ARAL LARRKKRKELAKAAKEE 
:POWER DOWN ROUTINE 


SPURON: MOV aSTLLUP DRPWRVEC ;;SET FOR FAST UP a 
MOV JAPWRVEC+E ; }PRIO: 
MOV fae oat PUSH: go ON STACK 
MOV Ri, -(S5P) PUSH Ri ON STACK 
MOV Re, -(SP) PUSH Re ON STACK 
MOV R3,-(SP) ;;PUSH R3 
MOV RY, -(5P) 3 RY 
MOV RS; =(SP) ~ $3PUSH RS ON STACK 
MOV ISWR, -(SP) 3 ;PUSH @SWR ON STACK 
MOY SP, SSAVRE :SAVE SP 
HOV #SPWRUP, J#PWRVEC’;;SET UP VECTOR 
BR 2 ;;HANG UP. . 
© SLEKRKAKEK AKA RE LAE KA RA AA KAA ALAA AAA RE RSRASAHAA SRA RHE RE KRAARELEREKE 
i BOWER UP TINE 


SeuRUP DP: fv #SILLUP QUPURVEC ; ;SET FOR FAST DOWN 


SSAVR6, 
CLR SSAVRE AIT LOOP FOR THE TTY 
1S: INC SSAVR6 ;;WAIT FOR THE INC 
BNE 1$ WORD 
MOV (SP)+, ISWR it Pop STACK INTO aSWR 
MOV (SP)+°R5 * POP STACK INTO Re 
MOV (SP)+)R4 i top STACK INTO 
MOV (SP)+°R3 ;}POP STACK INTO 3 
MOV (SP)+;Re :POP STACK INTO Re 
MOV (SP)+°RI : t pop STACK INTO R1 
MOV (5P)+°RO 33POP STACK INTO RO 
MOV #SPWRON, JHPWRVEC’ ; :SET UP THE POWER DOWN VECTOR 
MOV #340, DaPURVECSS : PRI 10:7 
TYPE i REPOR T THE POWER FAILURE 
SPWRMG: .WORD  S$POWER + POWER FAIL MESSAGE POINTER 
MOV (PC)+, (SP) iineeteat & T BEGIN 
SPWRAD: ltORD BEGIN “RESTART ADDRESS 
SILLUP: HALT ;THE POWER UP SEQUENCE WAS STARTED 
BR 2 t EF On THE POWER DOWN WAS COMPLETE 
SSAVRE: 0 THE SP HERE 
SPOWER: .ASCIZ <15><12>"POWER” ° 


- END 
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DZRJHA. GROSS REFERENCE TABLE 





ACL = 000040 22438 

ACU = 100000 196% 

ase = Orsose ica" 1 e3e98 = =6434S* 4357 4536% 4S47 4684* 4694 

a sige 4au3 S583" esi 

ATABLE Ol 4e9# 284 

ATTENT Q15136 - - 23648  2808%  e2848% 4345 4536 4684 

ato = 000001 — sims 

Ate = site 

AT3 = 000010 21378 

ATS = 000020 21388 

ATS = 000040 139 

AT6 = 000100 2140# 

AT? = 000200 2141s 

Al& = 000400 207S# 4182 

Al? = 901000 20768 4182 ; 

BA 01S$030 1688 23188 4338% 44Sel* 4Se6* 4670% 4674% 

I_ = 000010 20488 4184 8149 

051320 2600 8S4e 

BEGIN 017356 191 24398 10481 

BEGINe 017346 1 2437 

BITST ' O4S44e 2632 74318 

BITO = 000001 Sle 7886 8=—._ 7921 7923 

BITOO = 000001 1418 151 

BITO1 = 000002 1408 150 

BITOe = 000004 1398 149 

BITO3 = 000010 138% 148 

BITO4Y = 000020 137% 147 

BITOS = 000040 136% 146 

BITO& = 000100 1358 145 

BITO07 = 000200 1348 144 

BITO8 = 000400 1338 1493-977 

BITOS = 001000 1328 142 9781 10264 

BIT1 = 000002 1S0# 79 

BIT10 = 002000 1318 10248 

BIT11 = 004000 130 

BITle = 010000 1298 

BIT13 = 020000 1e8e 7916 7918 10255 

BIT14 = 040000 le7#. 78 9 

BIT1S = 100000 ‘tebe 7888 7895 7902 7911 7913 

BITe = O00004 1498 

BIT3 = O0000iC 1488 

BIT4 = 000020 147% 

BITS = 000040 1468 

BIT& = 000100 1458 

BIT? = 000200 1448 

BIT8 = 000400 1438 

git = 001000 L428 

BLT1; 045470 74378 867442 

BLTe  O4SSile 7437 7438 7444 

BLT3 O4SSee S 74468 

BPTVEC= 000014 1S88 
01504 23278 
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CROSS REFERENCE TABLE 


4992 5173 6231 
753928 
Has 


6336 486497 «6677 BSS 7732 goo4 
9747 10239 10263 
414 007 


4602 
6844 


6879 
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OZRIMA. SUB GROSS REFERENCE TABLE 






OF 1 12560 4 17568 B 
iy l a8 17588 a 
{ wo Aret | 
aC 
se BSP A3 e1o ope 
32 sO 610 53840527678 
Dev 912614 ce? Ssi(‘ékO SC 17698 
OFS6 Oi abe3 893 «17728 
Dre? (12633 0g 17758 
012531 ui 4 17468 
DF30 40-1241 | oltre 
DF31 01647 37638 751 2 759~Sts«L: 7808 
DF32 = 12657 401 17838 
OF33 «012670 343 «17868 
DF34«=«-01700 533 «17898 
OF3S © Ole707 68 730 17928 
DF36 41717 673 690 17958 
DFR? «13725 713.«17978 
BF40 01736 778 = «18008 | 
DFY2 = 014732 7B 0ti‘«789SCté«iGSC«k OD 7 3 
OF44 =—«-O14736 996 go2 809 823 #830 837 #42844 gs@ 65 972 4879 #«©+88 #992 
90040 Ci«SFti(itéiSti«éi(<ésC«éiCtC«é 
OFS = OD0001 20858 | : 
OFS4 «914743 851 928 935 20238 
DH  O05452 320 = «439—Sts«éL 
OHi1 o0s702 43512028 
DHi4 008057 u5& «1 3iee 
DHIS  GOb256 u70 «13348 
DHi6 «006306 y7g «13388 
DHI7 OOB444 ug9 «13558 
DHS 6s OSS70 uo? s«127Be 
OHB0 4 Ob be} S02 («13758 
OH21 006775 cis 13958 
OH22 «07111 632s 14098 
DHOY 560 ««573~—S«s«1 4208 
DH25 40-0736 cau. 14408 
DH2? 1 600 | «14628 
DH20 ©=«007717 614 «14798 
DH31 010051 $e 74 149K 
BH32 «S124? mM 3 isive 
D433 «= G1D464 34 «15418 
DH34 «= s«O10663 1563 
DH3S «6-1 1036 649 720 15828 
bese Oe 4 681 16048 
11371 1 16218 
DHHO «= so 1610 768 16478 
ei yee -— © & a eva 8S6Ci“‘éikCOTOC«SP?:Ct—“‘«é‘éiC~*«OSG 
SO tC«SESCité«*G:C(‘é‘«i SR 
DHS4 —-«O14G0S a49 928—Cti—«éiSSD 
67168 = OOCO04 20878 | 
BIsk  OS4256 1722 4150 4199 4860 S020 5066 52399 Segge SHI9 S¥bbe STIS S762 $932 - 
EQ5is 6108 61568 6399 6439 6602 6787 6835 6937" 6975 7O5Ge 7Oate 7955 





8073 881: BSeS# gsSebe 9156 Jel4s 9699 





Cc 





MNDEC=11-D2RJH-A,RPO4.’S’“6 DSKLS CONTROLLER TST-PT 2 
OZRIHA. SUB GROSS REFERENCE TABLE 


78 











7 Ao 
4 = 000020 20898 
DMO 8 =_:« 900001 elees eg7i 3028 4117 
ss98 9011 «389014 = 9028 
DPR = 000400 258u0 7563 = 7566 = 7615 
DRY = 8 7563. 7571 10 
DST 1S04C 16 2se4e §=64o44e =—4S 35% 
DSWR = 177570 Zee = 27 69 
0S! 01S0S6 16 1680 1692 1695 
7$61 7$71 = 7610 
Bae U2 it 
DTE = 010000 2el1Se 4349 4531 4679 
DTSY = 001000 21308 8889 e892 8966 
DTi 011766 324 44 456 16708 
DT11 012030 432 = «16778 
0T14 = «§=©912050 463 16898 
OTIS = “-01e07e 472 = «16838 
ie 6 
OTe 15002 16728 
DTeO §8 8012140 509. 16928 
DTel 912160 SeC 8=—s_—«169$8 
OTee 012174 537° 551 16978 
DTeY Oleeds S66 579 = «16998 
DTeB 3=s_«O Lee S32. 17028 
OTe? Oleesd 607 3 8=17058 
OT3 012014 412 419 16748 
DT30 0=—s_«O eee CC; 62:0 8=—_ «17088 
DT31 Qi2304 - 375 383 -750 738 
DT32 6: Ol e326 389 400 17158 
DT33 © 1e3Se 3420s «17198 
OT34 = 012374 637 ——.172e8 
OT bisuee . 656 7e8 =—ss«17258 
T. 12436 ’ 671 688 17288 
if 012454 11 17318 
DT4¥O Qi2s00 1738 
DT42 014674 781 7 815 20148 
OT44 = =6014704 795 801 808 Bee 
899 aoe 913 . _920 
DTS4 = §=©014720 850 934. 20188 
DVA _ = 004000 20788 7177 7538 os 
ECDATA O0S0366 Bev6s 8e94 B4S3e 8517% 
Ect = Bova 8 558 7 7728 
CORR 1012 7 14 
‘a on ne es 
a ie ae 
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yed2ex 10247% 


4314 4490 4532 8156 8184 
9031 9072 9082 3098 9264 
4683+ 
1702 1712. 17iS 1719 1735 
7615 . 
i7les 

829 836 B43 957 O64 
941 20168 
7603 
8519 9008 90108 93025*  9027% 
7090 
reer B > 
AY 6 7083 84478 

36 6 910 
4Si2e S158 S342 5518 sss4 


8452 
9425 


23318 4342 4533 446814 


871 


907S* 





8712 
9428 


878 


90792 


6033 6210 


8864 
9437 


89S 


9091+ 


6530 





$7ll 









8870 
9448 









892 





3036* 



















MNOEC=11-DZRJH-A, RPO4Y/S”6 DSKLS CONTROLLER TST-PT 2 
OZR TABLE 


HA. SUB CROSS REFERENCE 


EMO4 
EM25 0032 
EM30 77 
EM31 
EM32 0035494 
EM33 004033 
EM34 04105 
EM3S 004200 
Em36 © 004477 
EM37  OO0466S 
EM4O 04753 
Em42 436s 12746 
EM43 = 013031 
EM44 = 013075 
EMS 013132 
EM46 =: 3161 
EM47 =: 013210 
EMSO 613045 
EMS1 013303 
Eyes Oy a3e4 
ee 
ENB 013476 
013513 
EMG 002250 
EMS0 43=-:«O13S4e2 
ENE! 013631 
013701 
EMb3 913736 
EMEY 14034 
Em6S 614070 
EMBE 43=«-«O1 4152 
EM67 9s 14224 
EM70 OSI 
EM71 O14 
CRC OSSSi6 
LG$ 015126 
ERHDGP 55520 
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MACY11 27(655) 





319 5 ens" 
44 43 58. 9728 
9778 





625 
643 10948 
663 «11268 
676 so 1348 
$95 11448 
718 «11778 
7380 «11988 
765 12088 
779—Ss«1 8058 
786 = «18158 
793 18238 
739 18298 
806 19348 
813 18398 
820 18458 
857 «(18S28 
834 18568 
641 18638 
a ie 
Bes sieaOe 
869 18848 
368 s40hCi(‘<‘é 
876 18898 
Bie 
gay Sstas 
904 19268 
911 19328 
$18 1948 
$e 19508 
19608 
$33 13698 sa 
ess izes y20? 42H 4NG0R Yb YBIE YEE YEH 497E_ 5138 51318 
cis $1308 Paot sa Piase cee) posse bande beed coos cone GETa” eco 
$ # # ss 
‘ £9 ny CE beset paige 8733, $336" «gROee pete BEES 





668 
37 





o 
BRER 


86+ 
9284s ga2e8 





1-DZRJH-A,RPO4/S/& DSKLS CONTROLLER TST-PT 2 
4a GROSS REFERENCE TABLE 


a 3 z 
ee 


aesicte 
a 
Bina 
Sens 
pererorerentee: 
HUE o whore 


a 


ae 


a 
Aes 
mEq 
BR vy 


fure £ 


33 


a 


5 


oh 

2° 

Be 
= 


gg tets 
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9764 


4206# 
S464% 


1725 
6221 


: 





1 
10433 10435 


S9S4* 6129% 6299s 





MNOEC=1i- 
DZRJHA. 


8468 


S087 | 


e 


Sapam 
“ Bae, ee 


FREON 


I 
I 
I 
I 
I 
I 
I 
I 
I 
I 
I 
I 
I 
I 
I 
I 
I 
I 
I 


ererers) 
<LOPule 3 


my 
mn 


Se 
23368 


4343% 


neue." och RaNhe Ne TST-PT 2 


S261 S440 


8100 | 
giz. 


8970 


4022 


4S34% 


4682 
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S614 s«S783)s—«S954=ss«s129s—Ci29Bs«HS 


8105 
8124 


4053 


4069 


5967% 
c9$9% 


6142s 
6143% 


6472 
6473% 


5274s 
527S% 


5796+ 
S797% 


SY4o34 
S4shs 


$624 


6637# 
6638+ 


62808 


6921# 
&822% 


SEQ 0303 


6995 


7012s 
70i3# 





MNDEC-11-DZRJH-A,RPO4/S“6 DSKLS CONTROLLER TST-PT 2 MACYL1 27(655) 30-MAR-76 20:59 PAGE 258 SEQ 0304 
OZRIHA. SUB GROSS REFERENCE TABLE 


744S% 750 
74288 74S 
9943 


a 


2946 
4341# 
9006 


PEEETEe 


a 
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NNDEC=11-DZRJH-A RPO4/S/& DSKLS CONTROLLER TST-PT 2 
HA. SUB GROSS REFERENCE TABLE 


= 000040 ele7e# 9073 9089 3430 S440 
= 001000 e0s4# 3711 3713 = 3717 ‘ 
NCODE 0S90376 4 S08 4 Seh0)3«=6——5439)—fssCS613s—CiéS7B2@)=ss«C«S953s«CiwSL2BsCi‘éGS7—sCiSB C23 BO7 Ss 6998 
NCOUNT OS0400 aor he S086* Seb0* ° S439% S613% 5S782% S953* 6128% 6297% 6458% 6623% 6807* 6998 


= 010000 Ty 3389 3368 3409 3453 4101 8611 


NOSYNC OSe4S4 7381% 8783 88478 98932 8960 9748* 
NOUNIT e778% 2 2830* 7255* . 





meg 
REARS 
os 
3 

ri 

ars 
sezus 


ne 


: 
= 


73398 §€6©9985 610068 





NNDEC-11-DZRIH-A RPO4/S/6 DSKLS CONTROLLER TST-PT 2 
OZRI GROSS REFERENCE TASLE 


HA. SUB 


FR 


ecice 


PUIMIEMIETIEMErIrICrieriericry 


O— ae pane bao fe bo bo ho pe pe 
WONWUILWUH-O 


ee 


edi as el ey ta 
oe 


8 4 Oh 4 4 4 4 Oh ot Ft 4 Ot 4 4 4 8 4 4 4 4 04 4 4 4 0 4 0 4 0 
8 


P 
Pp 
Pp 
P 
Pp 
Pp 
Pp 
Pp 
P 
P 
Pp 
Pp 
P 
P 
Pp 
Pp 
Pp 
P 
P 
Pp 
Pp 
Pp 
Pp 
Pp 
P 
Pp 
P 
P 
Pp 
P 
P 
P 
Pp 
P 


ess 


8S20% J3* 
9x % 
177% x 


950 
9939 9941s 
[fie [ae ie Yee 
8362 8377 


8329 
8362 


2973 
1731 4917% SO8S# SeS9*# 5438% S6lex 5781% 


6997* B2ble 8402 8457 BYES BYG6 ©8468 


S9S2# 
8SC08* 
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8899% 
9113% 
9701 

% 


6127% 


9709% 
7593% 


6296 


6457% 


6622+ 
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DZRJHA. SUB GROSS REFERENCE TABLE 


eye4e 3986 4020 4OS1* 7163% 7198% 7230%  7340# 
3924 3929 


ia Sass 


5191 
6521 
74058 
O4S8* 


332 $375 5508 
1 6701 674e 


6e18 6251 
7537s 7594 as 
10464% 10476% 10477% 


Suge 10488 10048" 1 
* 8361 


4470 894640 85149 
6200 


8571 104408 
7199 = - 738 
8901 8903 


- 





GROSS REFERENCE TABLE 


NNDEC-11-DZRJH-A, RPOY/S/6 DSKLS CONTROLLER TST-PT 2. MACYI1 27(655) 
DZRJHA. SUB 


RHCS3 (O] * 1 
r ot HM 
er ie ke oe ie SE 
1 915C0e B8e4 E17 
RHD 015004 eesse e735 2737 e742 = a744 
e883. 2885 e914 2916 
aed 15010 23018  840e 
1SOle 23028 66 4512 83983 
RHER1 014762 ee308 2679 7518 8093 
014766 eedes 
RHER3 014774 ee958 
RHLA 015014 23038 
015000 2e978 8 2971% * 4117# 
81i84# 8451 7lee § 8713% 8714 
RHOF 014770 2e938 8 4175% e60% 4437% 4607% 
6170% 6491% 6671% O* 
RHSN - 015006 23008 2859 e913 2915 
RHWC 8=-«0147S2 ee798 86977 91 3012 
4352 4433% 4449 4S4e 
# S47S# 7% 5810% 5990 
3 ex 8016  8146% 
RH70 = 017334 # e2S51# 3279s: 3702 
020720 es49e 
RKEY1 052450 88198 8857% 8900 
tet eesse 8902 
RNCTR1 055320 92538 9e 9271% 
OS&ES6 96868 9691% 
0SS400 92698 
RPTRP1 044124 718} 71758 
RPTRPe 044230 71 e 
VEC O14746 ecb8s e485 3647 3648%  3657% 
8S6ES §=6«BS7ee «= S87 0—ss«9'722% 
RPVECT 056772 ye 97168 pa 
RSETR 188 % 
RSYNC OSe44e pl 4798 684805 88168 8887 
RUNCTR 052176 87028 8717  8718% 
RUNWAT 052256 87178 
RO =000000 768 2S80% eS83%  2678% bl 
7 .2829 831% e848 2976 
3886 4118% 4149% 4198% Ye 
432e9% 4351 4361% 4378%  4448e 
454 1% ae 4618%  46S8%  46S9# 
4769% 4779% 47Bee 4783% 4784 
4B14e 4eS8%  4907% pri 4943 
5018 * $067# $071 5074# 
5197# Se39% Se4O%  Sed4 7% 
S419% S420# S424 427%  SS22% 
5638% 5639 41# S643 


4B34% 
7038% 


2747 
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5118% 
7B26% 


2767 


8111 


5301% 
8015* 


2865 


8114 


4047 


4067% 


 SB14% 


2878 


6542% 
9605 


S815% 


4Y2Sbx 
4uguox 
7409 


7160 


SEQ 0308 


S994# 


2880 
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OZRIHA. SUB GROSS REFERENCE TABLE 


6325* 6327 6328% 6329% 6331% 6379% 6386% 6397% 6439% 6440% 6444 6447" 6540% 
6S43% a 6549% 655e% 6553% 6554% 6557% 6565% 6602 pees 6607 pelts 6715% 


69lee 6915* 6915%  6917% * 6978 6979% 6983  6966% 7083% 71034 7104% 
ci07e® 7108% 7109% -7llee 7ie7* 7160% 7161% 7162% 7195% 7196% 7197% 7257% 7259 
7296% 7409% @ 7417% 83 7484 > ee 7635% 
7640 8=— 7641% 87685 867686 = 7687 0S 794% 1 7762 0=— 7763) 7764 =—ss 7765 
7766% 7794% 7872 7873% 7881 7933% 7953% 7956 7979% 8001 
0 8012 4 8016 8018 98019 O4S* 8071% 8085  8i2e9* 8i4e 
Sibl# 8178 8 8200% 8303 8310% 8313% 8314% 8315  8360%  8361% 


9668%  9678% 9% 9833 B49 =—_«98S 9863 9894  9895% 9896  9899% 
10191% 10192 10195 10215* 10218* 10281  i02e82% 10e83* 10290% 10e91% 10e92% 10293% 10294 
10e95 10300 © 10306 10309 1041 


10% 1047S% as 
Rl =~000001 77# §=6©ecS81l# )§6e8SB8e )6=ss S88) =—ss« SO% «=6ebS1% 2652 2656  2675% 2685 2688 2730 3354 
3358 3363 oO 34 3415. | 3888 3902 


ih" EH 3595* 3597 soils 03 3650% 3653 3674# 


2, a Bf 2, Bb Es Be ee 3380s 





NNDEC-11-DZRJH-A,RPO4/S/6 DSKLS CONTROLLER TST-PT 2 
DZRJH®. SUB GROSS REFERENCE TABLE 


R3 =%000003 
RY =~%009004 
Ray 030350 
RS =%00000S 
=7000006 
7 =%000007 
SAVDT 015130 
SAVER O46 
SAYSN 015132 
SC = 10 
SCOP1 = 104412 
SCRC 055570 
SCYL 0SS560 
$C1 = 000100 
$C10 = 001000 


966 1% 
10374% 
C44E* 


4271 
4339 


9498 


4351 
4468 


MACY11 27(65S) 


4 % 4 
que le 
S364 = - SS49% 
6919% 6920 
7490% 7493 
goes godt 
8Se3% 8530 
8953% 8956 
9183% 9259 
eeise | See 
ld2ele 10213% 
Scie Ses4 
7786% 7791% 
exer Be, 
eros, Batis 
aie 363. 
1014 aie 
ips ee 
731 7929% 
9161 9166# 
10 0384 
‘2761 2774 
340e%x 3406 
4163% 4249x% 
4778% 4780 


Save 59988 
Gaix  &445% 
ageoe 977% 
ies | gee 
siege Bt 
9823 9825% 
10376  10394% 
244 

y44yg «HSH 

4530. 4638 


ypeee 4 
W130" e0Bs 
5550 Ses0# 
7111% 7lile 
7516% 752e0% 
7875 789S% 
8319 8328 
8609 8611 
8996 9002 
9387%  9438% 
9631%  9640% 
9839 9846% 
104S2 §=10473% 
2946 7436% 
7576 7612 
7876 7888% 
fo a 
id o333 
9171% 175% 
9831% 9864S 
erode 1oicee 
7451 7518 
8290 8427% 
9181% 9261 
1039e% 10395% 
2776 2780% 
S440% #3478% 
4386% 4387% 
ice anne 
egbey = eueSE 
Pauke 971% 
geos  E9au8 
a9 oaeae 
27% 871 
109% 926 
9827% 9834" 
1045S 10470% 
4618 4688 
4676 


76818 


“BO-MAR-76 20:59 PAGE 264 


4 4084s 
Wo3he 4493% 
be42% 6243 
7415% 7481 
7688% 7692% 
7931% 7952 
8375%  §8377% 
8876* 8881% 
9071% 9104 
9473% 9497% 
9676% 9697% 
9861% 10189 
7446 7482 
7689% 7691% 
7905 7909 
8321% 8322 
Fh 8428% 
108 9110% 
9386% 9433% 
9618 966 
* 10139 
10377% 1 
7769 7790% 
gSee* 8610- 
10362 10364% 
3054* 3061 
3S42 3552 
4S62ex 4563 
Se 
is eyed 
17% 6146% 
11%  6641% 
7432 7434 
8180% 9g181 
oie gc 
9632% 
10363 10369% 


DIRIHA. SUB 


SWREG OO00i76 
SO 


ae 


e 


BS 
8 


- b= bp 0-- pp 
~ae_ul 
~~ 


ee 


Reet ey | 
“) £frururu 
- Syiw = 
Of Ww 
1% os *%K oS Gs GS OS OS 


1238 


0 0 bs 0 0 
WEAR VO DOr wwoule ws 
Sessa ese aaa & 


a 
9845 
98 


Be hh hh 
— oo FUT 
LW’ NWOwWOennvw 


NNDEC-11-DZRJH-A,RPG4/S.6 DSKLS CONTROLLER TST-PT 2 
8ROSS REFERENCE TABLE 


9603% 
9770 
enare 


Ne 
-— £O.o0Wl 
bd 


me i oe 


0 0 oo ee 
eSan2-288 
ee 


Dn OS 
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to 
Ow 


— = bo 
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ipsa 


b= — 0 = & bp os 
MnN@Mor 












DZRIHA. SUB 












10 = 
' l = 

sis? ae 
SW14 = 940000 
SIS = 100000 
SWe = Q00004 
Su = 000010 
SWE = 000100 
SW? = =: 000200 
SWS = 000400 
SWS. = 001000 
Sil 025430 
sac 025564 
$36 027524 
1aeore 015i50 
TBITVE= 14 
TOF = QO0040 
TESOTE O1S146 
Med, | 0446 le 
tinoy = 906004 
TKVEC = 000060 
TMPILL 915142 
TOLGAP 055264 
TOTALA 015140 
TPVEC = 900064 
re Be 
TRK 05231 

TRKi = 004000 
TRK1O = 040000 
TRKe = 019000 
TRKG = 020900 
TRIVEC= 14 
TSECC O15144 
TSECCG 055374 
TSTNM 017330 
TSTi 021934 
TSTiCO §6©6.023764 
TST11 024920 
TSTie 4 Oe4le4 
TST13 6Sexeleé 


NNDEC=11-DZRJH-A, RPOY/S/6 DSKLS 
GROSS REFERENCE 


1038 
1028 
ls 


= 
io ] 


pany ny anh aha et oy 
NO IDO OHO 
SSR RR eRe Se 


CON 
T 


RBLE 


e549 
es3c 


2669 


TROLLER TST-PT 2 


2692 


4629% 


7642 
3072s 


4204 


3321 


73390# 


7648 
3290 


3383 





9482 


3299# 


3884 


4530 
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9757# 
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SROSS REFERENCE T 


26488 29288 29678 30268 30518 30938 3ll78 31478 3174s 632058 32338 





rahe RPOY/S”6 DSKLS CONTROLLER TST-PT 2 


na 


* 
UN 
UN 
UN 
UN 


oRONaREEE 


5a 


SEES 


&ROSS 


REFERENCE 


TABLE 


ice 


att 


34328 
39448 
52318 


MACY11 27(65S) 


345 a 
9 
S4lla 


30-MAR-76 20:59 PAGE 269 


35788 
40408 
57548 


9932 
10221 
8S48 


36378 
40798 
59248 


36718 
41158 
61008 


37338 
42388 
64318 


7262 7521 


4669% 4673 


5643 $827 


92918 


$399 9012% 


SEQ 0315 


3805s 
4Se68 


4700 


7018 


90298 














NNDEC=11-07RIH-A RPOW/S“& DSKLS CONTROLLER TST-PT 2 —sMACY1I 271655) 30-MAR-76 . 20:59 PAGE 270 SEO 0316 
DZRIHA. GROSS REFERENCE TABLE 


046732 78058 
: 23958 7736 





001216 2338 10163 10250 10272 
SCHARC 060012 9919% 992 9935# Os 
SCKSWR 960324 # 10437 
SCMTAG 001100 478 S e446 ens e460 8 8= 2461 
$CM1 = 000006 79¢)«=— 2808 = =—ss 281s ee 2838 * 2853 
$CNe = 000014 e798 «= e808 = Ble )=s eee B38 = Be 28S 
$CM3 = 000006 e778 = 279 
cm os aoe _28ss e878 8€688e = =—s«e8Se = «20e=—s a8 
SCNTLC 0610 9982 1006 101638 
SCNTLS 061107 10048 101658 





NNDEC-13-DZ2RJH-A, RPO4”S/6 DSKLS CONTROLLER TST-PT 2 MACYL1 27(655) 30-MAR-76 20:59 PAGE 271 SEQ 0317 
DZRJHA. SUB GROSS REFERENCE TABLE 


10073 101648 
e958 e775 7353 93908 9943 10084 10163 10224 10258 10272 10280 10299 10304 


9864 98728 
7297 —S ss 73038 


98688 
72998 


ee es 


1024S* 10272 


—— er 
TU 
ap imine 
wW 
hae | 
Ww 
“J 


1683 1685 
1722 1725 


oD 
00 
00 
06 
00 
00 
00 
00 
00 
00 


i ae ee eo eo ee or od 


yal ie te 


558 
a: 


oe 


—4 





MNDEC-11-DZRJH-A,RPO4/’S/’6 DSKLS CONTROLLER TST-PT 2 MACY11 27(655) 30-MAR-76 20:59 PAGE 272 SEQ 0318 
DZRJHA. SUB GROSS REFERENCE TABLE 


60868 6088 be738 6275 64188 6420 65818 6583 67658 6767 69558 6957 
714 10462 7185) = 7217# =7219 ‘ 

10364 10367% 10378% 10404s 

9784 = 9794 9802 


g : 
7248% 7250 72e84e = 7285% 7293 7306 9790 6.9616 


Boe 


a 


= be fp = he pee 


10476 


10103 10147 10163 10221 10224 


5 yee 
Ria 3S 


=f 
JRSKESSER 
oe | ae | oe | 


Syaaayuy 


Nj 
oe 


10467# 1048S# 


e456 2458 
10239 10263 


1044 

1044 

1045 
Sea] 


SSWRMK= 000000 5 3 
STIMES OOiele es 2665 30S0* so3et 3116% 3146% 3173% 3204s 


3577% aeaee 3670# 97% 3732% 37718 
4039% 4078% 7227% 83» 9786% 9793 
Stkenr ata 
TKINT 


060036 
31 KQEN= 060035 9951 
STKQIN 060020 9964 10017 = 10019# 













30-MAR-76 20:59 PAGE 273 





a's meee RPO4/S/6_DSKLS ee TST-PT 2 MACY11 27(65S) SEQ 0319 


DZRIHA. SUB GROSS REFERENCE T 
TK 2 x 4 1012 127% 10128  10130% 

STkGek | BECOES : noes itis &6 

$TKS  OO1144 2698 ie 8 9968% 9999 10001 10007% 10029 1004S* 1005S 10067* 10097% 


ie 2730% 2731% 30S56% 3072 3290% 3299 3365% 3406% 3446% 3647% 3657 
0 be 4029 Fy 4291% 4292 4467% 4468 4637% 4638 7638% 7644 
1683 
1699 








7 
1695 e588 7165% 7166% 7200% 7201% 7639% 7644 7649 776S* 


764e% 7646% 7648% 7651% 788e% 7924% 
ees 001204 esse 1685 1699 7636% 7637% 7881% 7883 7884s 







7891 08 
MA eS748 6¢S76 = bl 


30258 3046 30508 68 30928 3093 
31468 314 3164. 3169) 31738) =63174 3195 3200s eO4# = 3805 32h 3228S S38 
3233 32 3275 76 






: 
za 
a 






6 6595 6700 
S44 955 69688 6970 7068 7133 7146 =$(71558 7156 #7173 7178 







e4s6 1 
STRP = 000015 104218 imvse ate 104328 104338 104348 i9435 104368 10437 104388 10439% 104408 104418 
10428 







062070 10418 
bet hoe e498 72448  7282% Rise 9775 (9797 «=8969802 = 98808 «= 10247 ~=—s «10272 





98908 
STYPEC 057746 eae 9918 ehite 99308 9931 10089 






93. 
1 
04 
10354% 10358% 10368 104038 
Bdhte Sean aaah U 73. 1838? 






4 181 1828 184s 1868 1908 1938 2398 e46e = a9? 16688 1804s 


2 










NNDEC-11-DZRJH-A,RPO4/S/6 DSKLS CONTROLLER TST-PT 2 MACY11 27(655) 30-MAR-76 20:59 PAGE 275 . SEQ 0321 
DZRJHA. SUB GROSS REFERENCE TABLE , 


CHECKA 398 ues 4991 5173 5352 S537. S686 5869 6043 6230 6369 654S 672 oo? 7099 
CHECKB ~ i75 


& 4 444 4 4843 4957. SieS = 5308 «= S48S = SBS SsCSB21 = BD 6 36 
gua? 77 eee 704 7338 7831 © 2004 
CONMEN 14 1668 
ENDCOM 21 1668 r 
ERROR $08 2657 (3014 3109 3138 3165 31 geeu 3655 3097 3379 419 
3457 =63487s 3550) =: 3603 SS 3687 3721 3759 3792 3825S 3864 98 33 3997 
4027 5 4105 4209 4ele 4296 4368 4389 4472 4564 4641 4710 4865 4867 4984 
4988 6027 Sise 65160) 3§=6Se08 )«=—s_s« Se 08 S344 =—s«$389's«sS391=0s«sS511 4=—s 5520 )§=ss«SS32 = S576 
S578 65679. $683)0S «$723 Ss $7 S848 8=—s«S8S6—ssCséS$899—ss«C$:901 eb 6035 6078 6080 2 bel2 
6224 6362 6365 #6406 64 6Se4 6532 6574 6576 #67 713 «6757 ~=—s 6759 
oe8} 6890 6 6947 38966949 707 7081 7093 7136 1380S 7171 7179, 7209 7545 
= feo 7 =xe7f 895 7e0 7613 +7618 7654 #8052 8054 98078 8:06 
“P, 812 §8=68196 =—s 8400 8475 
GETPRI 166% 
GETSWR es 166% 2539 
HCOMPR 398 
HCOMPW 398 
MAKECL 398 8=63021 4110 
eSb68 °S69 26118 2614 27938 2 29198 2921 egsss# 2958 4288 130 Yeees = 422S«4493978 
4400 864S7e8 864575 = «7188 = 47 48939 4896 SO43e S046  Selo# S219 53968 5399 55888 5591 
$7398 S74e 5909 S912 60858 6088 #62728 6275 4178 66420 )§6=6— S808 «6866583 6=—s «74 «66767 0S 9548 
t 7. 71458 «67148 = 71 828 el7# 7219 
NEWTST 166 2567 ele e643 2661 e7su—— 2919s 2956s 3021 304 3112 08=63i4e = «3189s: 3200 
3228 83s 3271 3313 34e7, 34660 3526 3632 66 3693 3728 3767 3833 
3871 i) 3972 4003 4035 4074 4110 4128 4223 $73 4718 SO44 
Sel? 86835 )0—s «8897910 6273 418 6581 4: a > 7183 = 7217 
POP 1668 7415S 7492 7691 9 7977 ~§8816 819 84 8490 8527 8 87 7 9042 
9109 9181 9551 9712 §«=9859 10213 10469 10470 
PUSH 1668 74 74 7755 7871 7874 7 1 8450 8S01 8705S - 8860 
REPORT ieee 9064 9137 9257 "4 99 9693 9818 10187 10450 10456 
RF ORGC 398 S0e% $203 $386 557 S7e0 §6—6_5896)=—s«s607S—iSGSCBHOG~—s«éGG'71 6754 64H 7133 
RH70CK 338 1ie58 3699 = 33734 = 383 4141 
SAYTST 4 28 cbse 2648 3026 3051 3093 3117 3147 3174 3205 3233 3276 
3318 388 se = 3471 3531 3578 3637 3671 3698 3733 3772 3838 3876 3915 
3 3977 4040 4079 4115 4140 4e38 Yb 47 4906 S23 S411 
5601 $754 $924 6100 6285 64 §3 Bra 970 715 7191 
SCOPE 618 73 «626190 ebYG GY 92 5 Oe4 304 3091 3115 3145 3172 3203 
BRR eae eee eee ee 
Bite e068 ore $921 e083 eo 433 eas 6 6967 71SH) Ss 7189'—ss 72267281 


SETPRI 1668 3 
ar ore 10430 §=610431 10432 10433 1043S) 10437 10438 10439 10440 10441 10442 10443 


SKIP 398 1668 2554 2654 790 3 3108 3137 3164 # 3195 3223 3254 #3375 3416 3456 

34 3554 3607 3686 720 75 3791 38e4 48638633897 s3899s—sC932—is«398G 3996 4104 
4197 4elg 4851 4885 = 4977s S148 Ss $3331 $507 S672 S844 6022 6199 6356 6520 6700 
7068 38671730 = 7178) ~=—Ss 7205 


SLASH 
SMORE 338 = 8©69748 


NNDEC= 11-DZRIH-A RPO4/S/& DSKLS CONTROLLER TST-PT 2 MACY11 27(655) 30-MAR-76 20:59 PAGE 276 SEQ 0322 
DZRJHA. SUB GROSS REFERENCE TABLE 


SPACE 1668 
= ) 4 me me BY AR 
302 30 30 90 3 3 


312} 


' 6273 8 81 
10437 10440 








ay a ll RPO4Y/S/6 DSKLS CONTROLLER TST-PT 2 MACY11 27(655) 


GROSS REFERENCE TABLE 


CNTA # 240 
OP % 7272 

- SERRO # 1Ce 
SERRT e# 10272 
e# 10444 
e# 10171 

ee 994 
$SCOP ee 97 


eee ee 


eS 


"BO-MAR-76 20:59 PAGE 277 


SEQ 0323 





NNDEC-22-DIRJH-A, RPCY/S 


| OZRIHA. SUB 


ADD 1} 
3900 

. 10897 

B 984 


3065 
10064 
10 


oe 
Reage 


~ 
Pope 
“Neue 
TwUUuem wo 


BSF sAEGs 





OSKLS CONTROLLER TST-PT 2 MACY11 27(655) 30-MAR-76 20:59 PAGE 278 


CROSS REFERENCE TABLE 






SES 0324 






W6e 4708 «= 7367 0S 7435s 74857 7S82—ts« 7621 7891 7899 7905 9838 
10208 10294 10366 
1020S. 102 10293 10417 





NNOEC-13-OZRJH-A 
OZRIHA. SUB 





RPOY/ 
&ross 
qu7y4 4 
16586 10072 
9826 «9856 
2428 «2474 
ae 
334403377 
7172s 7205 
7575 7601 
8304 8370 
gs90 8594 
Sc 9434 
9837 9854 
10313 10320 
- "9439 += 83le 
24390 244? 
5287 3288 
3384 4013 
4a47 «4B 
u74u5 «=: 47 
421 4922 __ 
$091 $193 
S427 5438 © 
sig 40 Sp 
5619 5827 
6130 6131 
6313 6328 
6560 6619 
6811 6812 
7i22 0 7243 
7808 7809. 
esos  gs09 
$534 «9708 
10118 10119 
2687 $785 
2448 43s 2471 
2883 2885 
3485 3547 
4103 4202 
S681 5767 
6702 «= s«é7111 
eaee | B88 
B48 89 
0010 10012 
2815 3321 
0199 
6652. 7444 
2583 2683 
4498 4506 
4953s S068 
ces7 5883 
6611 6734 
7646 896-7651 






56 DSKLS CONTROLLER TST-PT 2 
FPRENCE TABLE 


MACY11 27(655) 30-MAR-76 20:59 PAGE 279 


e~ 





NNDEC=11-DZ2RJH-A, RPOY/S/& DSKLS CONTROLLER TST-PT 2  —- MACYLI1 27(655) 30-MAR-76 20:59 PAGE 280 SEG 0326 
DZRIHA. SUB CROSS REFERENCE TABLE | 


RES 
coe 
$28 ISS, val wt Fe 
SSeS Bee Pee SS 


une 
Qu 
NN 


3 
—r 
wus 


Rese eR 
Rae 
SesunenNee 
gatuae es 


Rod DARE 
ee 

@ 

ae ae 


fe 


2 


ee 
PAT 
Tue 
aie 


sehen pe mene a 


- 


etetencpersnanseonnuanryne 


3 


nO ok 


o 
BiB 
Bas 


56 
621 
74 
8608 
8959 
8500 
5479 
i 
Sees 
30S2 
3105 
2210 
3377 
3358 
34 
34 
3537 
ss 
3857 
3916 
3957 


SRS 
Seu 
Tow 












MNOEC-11-DZRJH-A, RPO4Y/S”6 DSKLS CONTROLLER TST-PT 2 MACY11 27(655) 30-MAR-76 20:59 PAGE 281 


CROSS REFERENCE TABLE 








iphanpme naa 





b= b— 





otckut 
o 





LER 





= 





Jeo 





foe 
$3r- 








Sa2o 






8 


eee R erect 


uy 
bs 
pe 
N 


ieee? 


co 
i 


diy BR ar Salar 
a 


ears 


*- 


a2 8 


~ 
ba 
Ww 
N 


BAPE RS 


BS 
Be 


be 
3 
WwW 
~- 


Bahia 


pode 


owl 


8709 
8804 


a Besser BSS een 






1-DZRJH-A,RPO4/S/6 DSKLS CONTROLLER TST-PT 2 
GROSS REFERENCE TABLE 


be 


894 


9091 
9142 


us 
5 
se 







MACY11 27(65S) 30-MAR-76 20:59 PAGE 282 


e 


= 
o 


: 


BReaee 


ears 
PaeSRUNS 


@ 
N 


Sor 
ui.0 5M 


aw 5 
ge & 








NNDEC-11-DZRJH-A,RPO4/S/6 DSKLS CONTROLLER TST-PT 2 MACYL1 27(655) 30-MAR-76 20:59 PAGE 283 
OZRIHA. SUB GROSS REFERENCE TABLE : 


RE Br Bt Be Oe Bu ml mh me mm ee ge ge oe 





°10000 10043 10080 10095 10123 
100e9 1005S 1 
1094 











l 
2000 

ASCIZ age 2% 953 962 
1075s: 1084)«=Sssa118 Ss: 265 
1346 1368 1385 1402. 
1634 —s«16 1805 1815 
1884 1889 1900 1908 
2502 2507 251 2515 
2709 e713 276 2766 
3334 3342 3346 
8552 «= BSb4Y)=Ss«iBS70—St—«é«i'SGS GC. 
10486 

oe 3334 1g1eE 24! 

BYTE 24g a6 382 
1755 «1755)~=Ss«1758~—Ss«d1: 761 
1795 1797 1800 2020 

.psABL 10105 

" ENABL 2 9946 

“ENDC se l 
186 ote oe 235 
2031 2065 2067 e411 
sears Seu Segs SRG 






e7b6 = e772 2795 5078 
2 e304 =—s_« 2910 as 
Soe Sos Sits 31TS 
3173 = 3174 Eat Rat 
3e75— 3e7HC—“(‘i SSH 3331 
3428 = (3429 30 
3531 3974 38693575 S387 
3671 3694 - 3333 3696 
3076 eI 39 3913 
fous 4008 og 
4079s 4111 ais 4113 
a re ee 
cae S338 SMU? SHOR 
$911 S912 $920 5921 
6419 6420 648 64e9 
6956 6957 6 6967 
7217) Ss 7218 =—s 7219S 7228S 
7291 72920 7e96s—i«‘7298’ 













7372 0S 7376S 73% 
ra 7705 


10442 
-EGUIV 60 61 
l4e 1 
- EVEN 1668 1804 2012 


1 

4 

8S46 

IF 3 15 * 


“v7 
2067 





MNDEC=11-D2RJH-A,RPOY/S/6 DSKLS CONTROLLER TST-PT 2 
DZRJHA. SUB GROSS REFERENCE TABLE 


ateu: 50 
2450 








SEQ 0330 





MACY11 27(655) 30-MAR-76 20:59 PAGE 284 











7423 742 7H 7478 75290 7330S 7587S 7591 7626) 38=— 7631 7672 
ae 7798 = 7801 7844 ree 7938 8= 7948 738 8000 8133 98140 
84 96 8S3 
Af 861 
2b 93 
9809 9876 9896 9977-9986 1002 10023 10038 10069 
10133 10140 10142 1014S 10147 10163 10164 10170 101 10180 
10257 10eS58 10259 10 1027 10e7e 10275 10090 10328 1033 
10431 10432 10433 10434 1043 10436 10437 10438 10439 10440 _ 10441 
10457 10463 10469 8104 104 10482 10489 
8S 11 l 11 
146 14 $1 
S02 esil 





hs aa eatin RPO4/S’6 DSKLS CONTROLLER TST-PT 2 MACY11 27(655) 30-MAR-76 20:59 PAGE 285 SEG 0331 


DZRIHA GROSS REFERENCE TABLE 
2645 2645 2647 2648 2662 2663 2664 2665 2666 274 2752 «2795S s2798)S 2803S 2804 
2805 2836 284% e873 e9l2 e920 e921 927 2928 295 2958 2965 6 30e2 3023 
3924 3025 48 49 3050 3051 os9 3090 3691 3092 3093 i113. «3114 ~=S 315 
3116 3117 314 3144 146 314% 3147 317 317 3172 3173 3174 3201 3202 32 
3204 = (3205 )=S ss 322 31 3232 3233 327 327 3e74 «3275 327HSs3314 S315 3316 
3317 3318 «4063384 «493385 «4063386 )«=s«3387)0Ss«s«3388)=ss 428 =Ss3429Sss3430Ss«i234 3532 3467 3468 3469 
3470 40-3471 Ss 3527 3529 3530 3531 S74 40-3575 3576Ctsi«é3S 3578 3633 3634 
3636 ? 3667 3668 9 3670 3671 3694 3695 3697 3698 3729 3730 3731 
3732 42-3733 768 3769 3770 £3771 #«©4«43772 «83801 3802 3 3805 3834 38 
3837 38 ? 3873 3875 =: 3877 3911 391 3913 3914 3915 39490 3941 394 
3943 4 = 397 3975 3976 4004 400 4007 «4008 )«3=s(«44036-—'—s«édN3? Ss“ 428 
4033 «4040 «Ss 40754078 S407? s«sNo78 411 4112 113 4114 4129 4130 4137 41 
4224 4225 4236 4237 43 yy 4414 44] 4S 4E?S 4S yoas 4719 4720 4731 
u732—isY 896 903 4904 045 sou 5055 sos 18 S219 S228 23 5399 
syos 4 46s403 4 42«5590«Ss«SS91~=Cfs« S98 599 s«S 7441 74 575 5752 «591i. s«S912«=Ss«SS2i =“ 922 
6088 ? 6274 6275 b282 62 b419 = 64 6429 6430 658 6 6594 
6766 6777 6778 6956 6957 6% 6%8 71547 7148 7154 #7155 7184 # #7185 7189 
7190 7217 # 7el 7219 7226 ree? 722 7ers 7278 460 7282 )~Ss 7288 231 7306 7316 
73% 742 740m 4860 7465s 74 7587 7591 7626 7631 7672 
7705 774 7754 «2=—«77 7801 784% #7870 7938 7985 8000 98133 9140 167 8175 
8206 8436 8441 8496 8499 8538 S41 861 8618 98677 9809 
es42 8982 9898S 9i21 9123 3199 9226 9228 «= 9393's«93389S 9565 
9683 9716 9 97 9772 9775 4 g 9805 9809 9876 3 10038 
19048 10199. 10112 10120 10132 10133 10141 101468 10162 10174 10227 10229 10048 10271 10272 
10278 l * 10305 10331 19408 10414 10447 1043 1048 

IFT 249 eS02 46 2507S Sl gol esl ese ese? S31 2535 2558 2595 2599 674 2701 
Seer Sua S448 Sue SSuk 5555) 585 «= SSag eS ae Se 
Boe 8564 8570 8576 8586 8596 9720 9787 10111 10116 10197 10217 10224 

.IFTF 2497 = 2502 co? 0 S11 )=SssS1S)—s« 25319 2527 2531 2535 esses 25 2701 
2705 2709 713. 2760 2766 «86 772s 2858 2864 e898 2310 «= 8 940 
2951 3334 3342 3346 7234 # #7240 7344 # +7350 7357 «#497361 =? 7376  8S46 
BSbe B54 8570 8576 8586 96 9720 9785 10048 101 10lle 10193 10201 
10223 10257 

JF 2 ? 12 44 45 46 4g S! 52 53 Su 1 297 24s 24s4 

246 2463 2464 2860 286 7276 460 7eB2Ssi‘72BSsC‘z?eSN~=OC«730G&lCsC“C(‘é‘é7?QCOD.-«C§'93738D—=“‘é‘SZ’; 

rit 161 10178 19224 10258 1603 162 a5 10233 10234 19238 10262 10271 19278 10297 inate 
tae pasa 16430 10431 18639 hake 104 104 10439 105490 10541 10442 10443 


1 Si 1 O44 
~ Som Sf me @ Bo mt Bm et mt de us a me 
eb OS Bb 7 gies 70s 


939 397 4035 4074 4 q 4s73. 4718S 4894 = 5044 
Bip «Bag? Bo 591 er ar ey 71% = 71 i7 
15 7480 «7492s 7hae 7691 7789 7874 «7929S 7950. 7977s B42 «= 160177 
8199 426 86 BYSD—Ss«BYSI 7 799 8972 9065 
9137 9181 9257 9384 Hel 52 9599 %73 %93 9713 9748 9819 9859 10187 10213 
_ 16249 1048010886 10869 108 
-LIS? Z 4S CSB 279 281 282 ey 
286 a es a) 3 BMS BMB 97 2507 2511 15 
2519 3 ? 253i 2535 2 6b? 6574 6 8 ss 12 2620 86222643 
2647 «6 bHB bbl «= bES «674 = 701» 2705 e709 e713 e760) 7b Ssa77e 2804 
2858 4 9898 2904 2910 2919 2928 2936 2940 2944 2951 2955 2966 2967 3021 
3025 3046 3050 3051 88 3093 3il2) 03116 = Sl? S42 S346 = 34?) 3169 


ee ee ee ee s+ - - 





NNDEC-11-DZRJH-A, RPO4/S/6 DSKLS CONTROLLER TST-PT 2 MACY11 27(65S) 30-MAR-76 20:59 PAGE 286 SEQ 0332 
DZRJHA. SUB GROSS REFERENCE TABLE ; 


3173 3174S 3200s 20H = 20S = 3228 Pte 3233: 3271 a079 3e76 «= «331933173318 S94 


a ae ee a $2) bs be 
6 6 671 9 69 28 7 33 
37670 3771 3772 3804 3833 3837 3838 3871 3875 876 §=63910s 3914 = 93915 
397, 39 3977 003 4007 400 40. 4039 4040 40 4079 
4110 4114 4115 4 41 4140 4223 4237 423 4 4415 G16 4573 4585 45 
75s Ta 48 4 49 4 SOSE S058 = Sel7 29 43s S231 S409 S411 
5 $599 S740 465752 2S («S754 = =Sss«$910ss«S3ee «=: $924 086 6098 6100 83 
6418 6430 6431 6 65 6595 6765 6778 6779 6955 6968 6970 71% 7155 7156 
71 7190)0=—s 7191 vel? = fee? 72H ON 7298 7350 486735 7 7365 
7 8546 856 8S 8580 859. 9720 @€ 10132 10271 10421 
ae 10430 10431 10432 10433 10434 10435 10436 § 10437 810438 ©10439 = 10440 42 1 
MACRO Se 240 66 2611 e793. 2919s—se9SSi eB 397——CisNS72iCi71B8 Ss s#893ss« SOHN 
~ S216 5588 $739 6272 «= BY417——‘<‘i SBC 7H SH 7 7 7217—s «1041 
JHCALL 2 166 2465 
-NLIST e 14 2s 39 51 1 173 280 1 282 3 284 
288 289 230 on OO ms 65 Se O° See oy 2511 2515 
2519 223 231 8395 3 4 76 =e 95 9 ie ee e622 
eb48 e661 e665 c674 e701 2705 e709 e713 2760 2766 safe e7se— 28 
e904 «=6e910——s«i3319 936 §8=—. 2940 e351 2967 
3025 3050 1 30 093 gle 3116 3117 3142 3146 3147 3169 
174 3204 . 32 32 36 e33 = 3271 7 3313 3317 3318 
4 6 3383 3 42 31 66 347 3471 3831 
3577 ae55 3636 3637 3666 367 71 3697 3698 8 3728 
37670 3771 3772 00 3805 3833 383 38 3871 3875s 3876.—(iti1i is 04H 3S 
3972 4003 4007 4008 4035 40 4 4078 4079 
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